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Pie nentmebeenrOoOlosi©s in the fields of telerommuricetions 
and computer processing are decoming increasinaly integrated 
to the extent that ‘distributed’ computer netwerks are 
assuming key roles ier eowmurications. The COED 1ex 
CoOmputerizS’d systems necessary to support medern rilitary 


@@medna dra coOrtrol requirements are expensive. Desienin 
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lems SlemommOyesulraal .aned error is not feasible, yet no 
Peters viaqdibcomsalternatives exist. This thesis offers ar 
orieinal methodology ior evaluating the predicted 
performance of militery automated systems. Usine Petri-Nets 
aoc tod hime stocl, computer simulations with color graphics 
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approach as a systems design tool. 





1a 
te 


Els 


eek ch CONTENTS 


CIRO IAG SUQN 5 5 5 68 
eee ce Ot VATION, TAXONOMY AND PFFPORMANIGE........ 
erm lec OUUNy Cr CCIM Se ce a 6 Bee 9% Pee sc eters een tareee eer ee 
Eee! vow ON FOR TERPANALYSIS OF PRPFORMANCE....+00- 
SECO INO ie ac a 0 6 4 sales * 6.0 008 ree ses dviaice ee sols eee 
WME OMA WORE Set eMe 5 2) G56 e0/siia fos. 6s see's) 94 6 15 961.602 aleve ns s ieleeotene eet 
comomce “GCOmmunacation NETWORKS ...6 cece seveas : 
Weerewintiner 2Cac i nf. .% i.e’ eM Me hicls ici eis) ei ctscea' cc, tana (s eneretes eels 
Deserve NCE PREDICTION AND MOLFLING...... Rosa eoeoes 
EMME LOs gus css > 0 * 6s 6 0s 0 5 8's Math Rees ee ee ee ee 
Wop weer e ri LOARLiONS OF DISTRIPUTED SYSTEM 
eG OG! 6 che es wt ce ee eowenee sia tesale aie rete cdk tit !xe eee ce 
PU OU LON. . 6 6s ce ce wee see ee Peapentueyen ey ce. sets became 
eM rete OW EOE ING 2. ss ee ees Rely te aieieratetretravs6) 4: sarees (oe) Sec aes : 
UR Merl 5 5 ce se se 6 se ss 6 6 6 ce wae 6 see ee : 
ee baer eee GT GA CONS oo. Goce 6 clele cs es 5 ole Se se ee owe 
PEO DAS SISTEM 6 uc te eee ce sa ese tees aba een mtonors 
eeeeret mem C ENTROUUCTION .. 0.222 cee ce tee eve snes ; 
Ceereenier, AGCP OD SCHEMES... 6c cee tec ee Reet fei or er : 
ME BRS envi ist oreo. sso ete si vse 6 SNe <-(e-Yelniiu- 5 tee! et ; 
PTC ORY | ltrs. cc se « ste.0 6 06 o-0 Se a ataicince eer utes eens 
ca CeO ny LIT te ces ccc tc cc ww ees Bide Pe snsacig acree ete 
eC CRUSMETIREMMET OG RAMS. 6 occ cece wes MCh soca eens ki'etere sie 
Ne NRW eS eV gis: ccs c's 2c sic s ellviels sos 0s bes ee ees 





i, 


AN 
ae 


— 


Beep 8ne@ Sar Francisco Bay Sxperimertal 


ee eecr CRMC UN OTM ise. sss es ve es sess be ee ess 
See ne Worker race Testbed. ......s eee ce ee Sete eile earn 
CRIs PME Oe LONG eels es oc ves eee ce 6 ee bees ae be ere 
PE RO MUON ANG 65.60.50 ws was ees ve bes ble Sew ae 
pe owmmort Manazemrent....eesees Oe ae ere ae ceL te ceneertete 
COG NEO UNCAGNCY ccc ess cee see eee es Meester serene 
—eeorasation Loss Due to Sigher srequency...... 
Sreeeomerecrent information Systems... .c.csseccccscce 
Serato Oe Ta DL Lit Tike cee ee wee eee digo noniemes a Gert 
Coen unveommme a ba Ol POU] US... 5.65. 2 oe wes sess ss 
Srey eonemnG OST 66) 66 See ee CueMem ene ca ewiee testers \< /al/< teuietemete meres 
eee UecrmeOHeerO PETRI-NETS cc ccc swe eee e ces wees mere 
Pe erent LOE RO) temtede raVh 68ers) 6) e) 6) 'os0 Gr Sgr ice ee Ws. G6 6 Are lene elses on 
lS OO Oa ee side) ewrememeeenes 
BOweeeewni Nees WORX ..... 6. SEN irae ee ee 
Meee ree LE. 6s 65 ee ses RMN eite esas oboe Diesen 
Pee eA AG Romer PTSD VANTAGHES .. 00.0068 eri chide eeetame tener 


West Get ton CF COMPUTER COMMUNICATION 


PU Oi oie eels 6s se ee ee ee Sire eemotentenenemte! ic) OMe cris etoile el si ciie eh yaa 
ee OIE ON 665 ote te ee we wee ee eee suet eel custener ter suente 
ree Dimmer ODES 6. 65. see se we eee ee oe ee nee nce eee 
Pee eee APPLICATION BKAMPLG 1s. occ ete wt te ee wee aan 
Preece ertemos IN PETRI-NETS..... entices estes: seen ool none 
pm Pm Oe AG) REPORSENTA TION. . 25 ee cee ecw ec strane 
He ee a AV ERACE 0606 1 et ee cee emcee ee eee et cess 
Geeeomrarmer @ PRESTNTATION.... 2. See apemue ie iemits ier Se msmehet eoue meres 





fee eet OCOMMENDATIONS AND CONCLUSIONS 


ne 
APPENDIX 
oes 


ae 


Tv 


MEeeNDI x 
Ree yD TX 
APPENDIX 
APPENDIY 
ewes tw 
Been at X 
COMPUTER 


COME EP 


ee @eeeeee*#e#8e#28 208 8@8@?08@ 8 ¢ © © @ © @ @ @ 8 B@ @ 


oe @e et @8@eeeseteteeste eee 8 @¢ © @ @ @ © @ @ 


Meena t No LRUCTIONS FOR PETRI-NET SOFTWARE...... 
Pee UCT ION soc ce eee Meee ses ee etn Sate ee cece reasons 
RPP Oh LGB ccs ss eet ws co 3 8 miasge tei lan sieeve es ee eG sane 
Repro iretomen <a ile Wesel’ ajw ial ss 4c) s ses «© 6 a eeotegh pice te Seen ernerseies 
BMG AP SLLLONS 5.6 3665s Secon aprotveh/extplsesis) ai'eisie: urs: Boer wanes eves 
Perot “WATKINS sss 0 35 ee We cieei gc Sapte tetera eo ve ete eerie 
EE SC UG OM «> so we «6 5 Bi aves fatie totes) no ths; 6 ee: 
pore Miee ET GAS 666-5 ase ow ews Siete diers Sie soe paren een omens 
MMO ACT g le 615 6 Sse) be 3 0s wig 4 ¥i0 e508 Maveveneiiice iets teueene eee 
EE GEOR Give Cran OLY elINS a)< sao. 9 a) ee 9 oes silos 4 oo laewe oe is 
Pe cemeemles tors and PeSDONS eS .. vc. sess Ss te we 
cere eh iienting Feature .....2<ses apAgitt Meter tode essen san telee 
NSO eG TL UONS MOR VEPSION S..0tesews - ses scale 
MEMS eee we) oJaner eels: ee ei-6 ore viele 6 6 oe 6 658 4% e o:0 o) emeneenee 
UME Oe E ete 2g) she oie escs 60s 9.6 se eiers 4 «o's Soe jatcuneeee ; 
I om RNIN TE Se Gs See er 


re me MN I S56 <e- a 6 eoeereeoeveevrereeeeeeee et Ges er? ees ee eee @ 


EZ 
Ee 
ee 


fa 





COMPUTER PROGRAM -— “linkgravh ...... 


ib weere PO EPRINTS w 00 ee ee 


eee e8# ee @ ese @ ®& @ @ © @ ® @ @ @ @ @ ® © @ @ © © & © © 8 8 8 


GO 





ime AO DICTION 


Pommeeeeiucey Planners loox forwerd to the design of 
MeeumemcOmm=and, control, and communications {CZ} systems, 
memo rey Tactors should oe at the forefront of their 
Miemeenee first Of dil, it is readily apvparernt that there 
Mesme0een a proliferetion of computer resources for military 
applications. Even the most tactical of systems today is 
becoming a sizeadle collection of computers, detadases, 
mepsemseend infoOrmaticn—-handling eavivnment. 

pecorcly, ome cer Sono c that the fase Ss Oe 
Pre conmunications and computer science are vbecoming 


increasinagly integrated. Although these once-seperate 


Pee mmenes ee navewvory different histories and traditicns, 


> 


Peey are 


(D 


Vo mime ed teCcinolozical convergenge whica is 


ee 


ei qe-roocmene at molications fer both the militery and 
Pemren SOcletl eS. Today the corcepts and techniques of 
computer processing have been integrated with comruniceéetions 
momume €Ftent thet beth fields shere the sere kind of logic, 
storege, switching and trénsmission. Because infecrmation 
hendling systers now employ telecorrunicaetions and 
PeCOnneserore In SUGd an intimate mixture, it is difficult to 
ores SIeNdateinetae system is computer orocessing ard 
Prat suomGomnunicaticns. 

Peeper dGevemmector should be @ realization that certain 


conceots of computer communication networks and distributed 





wesovem. arenitectures enter advantages Lon militery 
epmeecaetions due to the votential for survivability end lack 
iomeontyralization. 

COMpuLTeT REtworks are often created sportane@usly »y 
e@oroining Gomeeuters enaeicorruricetions. The erowth of 
menmpurer metworxs 1s one of the sienificant outcomes of tae 
Semversence of the twe disciplines. An extensive array of 
Pimms NSSourceces Car be connected over a wide gfeogranhic 
area via Vemecommunicetiors chame@els . The potertial 
Meet pectures @or such networks are limitless wher one 


@emciaerss tne variety of aardware, software, protocols ani 


UY 
WM 
Oo 


Ee amt e G1Strivutions that might comprise the system. 
Another key factor is that system planners reed to focus 
thelr efforts uvon tctal system integration. Tact uce: 


autorated systers tend to be develoved individually to reet 
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unm@aue mission requ mec Or 1a5 Garce,= souerdt] systems 
weer ey pliceli,. justified and develoned for missions of fire 
@emrrOlyescair aefens®, intelligenc=, oersonnel ranegemert and 
logistics, etc. While these sevarate systems may veform 
BeeeseceroOrlily dalon=, there is difficulty in orevidirge eae 
Suitable management inforMation system by which the overall 
comrander or decisior-maker can have access to the 
Peonmameonm.n dil these separate systems ina ferret that 
PoreasyY to undeSrstard ard use. 

Amon er haportant consideration is thet eS 


Gaomerseoravion sOrmeutomated systems places ae severe ourder 


Ine On the Communications ““auipment taet links systems 


1¢ 





Mmesetoneeinsr] is 4 tendency for automated systems to ode 
Separately develored with insufficient emohasis vlaeced upon 
Pee communiceaticns equinmert that eta Peo] nS mat a 
[Mmerormari1oOn. Im other words, the sensors and processors of a 
ecco, work splendidly, but olanners must not tax= it 
for granted that the data will arrive at the correct 
femstlinatrom in an error-free condition. 

The communications equipment and channelization thet 
carry the inforration must de as carefully ergineered as the 
MmenereGOnmouonents Of the system. In addition, the date on the 
Sereno leTaisosy De in a format that is corpatible wth other 
merece Uso. rrhy is coming te grins with the fact that 
if the some 5@ tactical automated svstems on the drawing 
memes mere to be fielded for use at the cerps level, there 
Sacsuome nom CcOommuriCetions G@duilpment capadle of cerrvine the 
vast volume of informaticn these systems weuld generate. [nr 
ZrO w skin toe cormunications Equirrent rust overete 
with Swecr11ca t10nS of reds tis Ss Om See wl ba. jam 
Beso tance, ant low prodability of intercept in @ severe 
emesetronic warfare threat environment, the éeslier 
difficulties are considerably magnified. 


faaeeemiGary  Dlanners should b@ concerned atcut 


noe. An 


ey 


DemimeasweoLe to accurately predict system perform 
Hee@teeatiemepredtelor Of System verformance is neeced for use 
PemeetOse in precurement duties to ensure that performence 
Soecieenee LOS meron by Contractors will in fact prove to de 


true wher a new system is fielded. “anegers of currertly 


i 





Be@emevlone!l systems also require this service. They are 
meme 12 the course of daily duties such auestions as: that 
Tomereee ss tae C€rfect of increased buffer specp at this busy 
meeetsOn- Wrat would ve tne impact on tO teal s¥s tem 
Bemeormance if a vDarticular node or link in the network is 
memoveag; sten a desire for prediction of system rverformence 
hes created a2@reat emphasis upon modeling techniaues and 
computer simulations of systems to answer thes2 questions. 

All of the above factors have given irpetus to tnais 
Mmeectces 4 oerticuler modeling tocl which addresses trese 
needs is described (the Petri-Net) and is implemented to 
mera tats commuUnicaeticns netwerk modeling. 

n@ecmmoaper presents three primary points of original 
Weer 

Mm~emersmaenorstrated that automated networks cer ode 
mearninzafully modeled with tne use of Petri-Nets. 

Zoos Shown that Petri-~Net models of networks can be 
moouweduror effective corputer execution erd displey or eé 
fou Or e@epmres  terrfinal., Simulations whick incorporete 
weemonrcsesoutput are more easily understood erd have 
considsrable elucational valus. 

eeeomeereaoults of this research indicete thet the 
implementation of such a moteling techniaue in a sroduction 
ervirorrert as Perec CwOLr Of aSsyStet “performence 15 


feasible. 


3 


Piewe DOvVememrOoirts, elthougzh successfully implemerted 


Meroe wiavall rosteradudate School C3 labcratory, reoresert é¢ 





aes 

meee oat research in ¢ preliminary stage of developmert 
ae 8 * eo e | . 
Motmre investigation is reauirei to expand and velidate this 


aoereach. 
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eee LIC RCDUCTION 

Predicting the performance of an autcmated network cen 
indicate a measure of a2 system's effectiveness and 
efficiency. (3] Evaluating a system’s verformance is a 
memeueto task. ihis tesk often requires modeling. Many 


performance modifications are more suitably performed on 


rodels than tne actual system, because ‘trial ard error. 
meoiuction jceenotemteasiblie —economicaliy. Inis chepter 
discusses the motivations for network design and the 


Bmeeticalities of predicting network verformance. 


Peer OLTIVALTION FOR THE ANALYSIS OF PERFORMANCE 

The magnitude of information processing in the "rite 
States is unvorecedented and Ser ela growing. Compu her 
meeecessing end communications make 2 rajor portion of 
currently accessable information available to federal 
agencies and commerical businesses. AS the country 1s 
becoming increasingly dependent on the need for irfermetion, 
the existance of reliable, effective computer communication 
networks is Sacerticile to trenstor: computer-processed 
information. 

With the added cost of energy, the attractiveness of 
moving resources te the user via computer communications 
networks is apparert.(S] The perfcrmance evaluation of tnese 


networks is, therefore, e measure of thes syster’s ability to 


14 





meet user requirements. 

adecuate performance evaluation tools currently ¢de not 
eeest. Therefore, decision—=makers resporsible for selecting 
MevweoyosemsS usually rely on the designer’s claims as to 
meme ormancsS, and procure systems accordinely. 

eect tne Civilian and military communities place very 
heavy demands on communication’s facilities dvrine crisis 
Seouations. Throughout history existine systers have often 
meumeoeer SUrficiént to carry such communications traffic. 
[a] 

The civilian community shares these oprotlems. Many 
men «cea re eresineered to carry mean traffic loads and are 
nolt planned Lor CF1lsis @eientigenciés. The commerical 
telephone network, for instance, is inundated with traffic 
Garistmas and Mother’s Tay, severely degrading system 
Meme Orrarce. ihe disruotive affects of a natioryel erersency 
On all tynes of automated networks can only be imagired. 

In the Defense Communications Agency (DCA), work is 
presently under way to develov tools for evalvdéting the 
performance of planned computer comrmunication retworks. This 
effort is underway because develonmert of these expensive 


mM . 


systems by trial and error can no longer be afforded. The 
necessity to have confidence in the system’s ability to meet 
Meoepeotmemsnecifricatiors before production is essential, since 
normal federal procuremert cycles stretch cut over eleht = to 


nee ers.  Ihisee confidence can DE insured by utilizine 


effective pverformance evaluation tools. 





te 6. AMBON OMY 

oeomeet Cealsof embilzulty exists insthe jerzon of the 
networking field, [7] Therefore, several recurring networe 
meeemtptions are defined in ‘his chepter to rvrovide a 
memos ste2t verdtulary, Using thes definitions, netwerk 
miolcascarm ther be Ssuecinctly conveyed to the reader. 

1. N2=tworks 

The term network’ conveys the  corcept of 

Oeeeviduelized cells and a degree of interconnectivity. A 
mew erteexists for the surpose of ackhievine a desired 
ovjective. The individual charecteristics of networks are 
Mmemerped TO Retwork topolegy, hardware corfigurations, ard 
software control features designed to acrommodate the user’s 
requirements. 

gee ommubtber Comrunication Networks 

A “computer communication network is a system 

foro stirs Of OLe or More computers and terminals, and e 
communications subsystem which connects them. [7] 
Poemercyescurpose of this network 15 te facilitete the 
econ t low Of data, Erd provide the required suvportive 
meocesoie2 fUnctions. The cormunications subsystem consists 


Saemcmiomissionm fecilities and asse¢ciated ccommuriceticrs 


> 


Processors. Sommer t cations processors are COumpuy ers 


os 


4 


aeecciges ta exclusively handling communications tasks. 
The elessim i catior OG Comput 2s Commerce tion 
Meaiwor<ss Oftejm@emters around the network tovolosy, network 


Pomrese tivity, Swarvenine Prorocol and Pie) dewree of 





Mmeomew=ntation of system-wide control ? 


‘D 


atures. 


i= 


The term "centralized 


(D 
O 


0 


mouter Ceamurltce ta. Of 
network fomeusei te derine a networy tnat vossesses eae hich 


degree ohne certralized Puy Lon s Meu ae n°tworge 


classification, distributed systers , is used to desc 


ia) 


jee 4 
low degree of centralized functions. 

The Ceererences between eentralized computer 
Communicaéticn networks and distributed systems reveal 
themselves in the degree to which system functions are 
distributed. Tnere are no concise metrics which delineate 
meee etect Classification of a networ’s. The interpretation is 
Suojective. 

Further eMaboration On specific adventafes and 
@isecvantezes of the distribution of system functions and 
Mies @etinition of distributable Punctiors can be fourd in 
G@rserR [6]. 

Cemescli zea comouuter networks essentially forralize 
eae Mae mercontrol “Structure into pre-selected system 
momprol nod]=s. These nodes contain what is often referred to 
as the network control programs (NCP). The NCP can conrtrol 
the processing, database management and ccmmunicaticns 
Menagzemert Muncy ions.< Sis type oe networzinge 
Beteemewictlcdlly has a low degree of feult telerence 
because retwork direction emirates from only cne noce 
mapocime network restrictions should this node be déeregei. 

Distributed systems, however, are typified by the 


distribution of syster management functions. Although no 


re 





“pure distributed systems exist in reality, the term is 
Widely used to indicate a high degree of distributed 
furcticns within a network. This veer structure acts ina 
Beeceerative sense. Fouting alzorithrs, for exerple, rely or 
information that is “cooveratively vassed from node to 
Memeaoeoring node, thereby deriving information, not on a 
global basis but on a localized one. Distributed systems 
have a high degree of survivability and are, therefore, rore 
Pault tolerant then centralized computer communication 
networks. The advantage of distributed systems is, however, 
pertially offset vy the increased ‘overhead necessary to 
coordinate system functions. 
5. Further Reading 

Numerous terms used in networking contribute to 
confusion due to the lack of an industry-wide standardized 
taxonomy. The intent here was to define certain keywords 
Moed §tTeroughout this thesis. ‘Further clarification of 
system’s texoromy, although important, is not discussed. 


Taxonomical studies recommended are [2], [9] and [23]. 


D. PERFORMANCE PREDICTION AND MCDELING 

"Performance is defined as the @egree to which the 
Sa eoumecutiy?s user requirements. in terms of networks, 
these measures are often determined by the network ’s 
“moemiccamecapacity or throughput in the sense that the 
network can first perform the desired functions and secordly 


perform with a degree of timeliness. [4] 


ne 





The ideal means of measuring network oveformance is to 
eeerrdew. data from the system itself. The collecticn of data 
Prom e€yisting networks is often difficult. The performance 
testing of networks under heavy traffic loads or those 
operating in a degraded mode is a sensitive matter, beceuse 
mmmerfe’rence of CHEN MONT Oring —eculoment sce “ot be 
momerated, Networks in design phases, of course, can not be 
measured ard require alternative assessment methods. 

The modeling of existing ard planned networks has »herome 
an important component of performance evaluation. As an 
added benefit, modeling also facilitates the understendirg 
of a system’s design and interrelationships. 

The modeling process can follow one of several different 
meemmicques or a combination theréo?. The primary techniaues 
are: 1) mathematical modeling and 2) simuletior. 

Matheratical modeling employs theories of aueuing ard 
Pesow by d-scribing certain network characteristics in sets 
OF Equations. The process is, however, complex and often 
assumes away critical parameters. The primary disadvantage 
weep Mathematical rodeling appears to be just this problem 
Geer asSurotions. foo many assumptions irpose an unacceptable 
@eerec of abstraction. Although the validity of mathemetical 
modeling techniques has been confirmed [4]. the rethodology 
is often understandable only by the modeler. 

Simulation, the second alternative, leads the modeler to 
numerous techniques. A simulation is Co sles t reigtisorn: of 


@omeents pertinent to the probler being studied, and upon 


1 


; 
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which the modeler can apply varying experimertal variables. 
The model simulates only these features the modeler feels 
are relevent to the problem. Kerein lies the critical danger 
of Simulation. The danger may test be expressed by the 
question, Does the model bear relevancy to the real orobdler? 
[19] 

The major problem of simulation, as well as analytical 
Meeets, is therefore the validation of the rodel. Many 
mmuldtlOn experts talk in terms of performance reliability 
Pactors ut fail to state that these fectors ray be just 
derived from outputs of a model, and the closeness of the 
model to reality mav or may rot be sudStantiated. 

the modeling process itself consists of the construction 
Or the model, followed by the validation of the model, and 
finally modifications to the model based on results of ths 
validation process. | 

Once the model hes been defired, simuletions ere run 
with the model to evaluate network behavior. The pvroblem is 
rc predict veformanc® of real networks by evaluating 
m@eneviior On the netwerk mod2ls. The simulations then provide 
a reans by which network design deficiencies can be 
moencified and corrected. 

Arother issue in simulation analysis is the erea of 
Seraesi2an. Simulations should indicate those SySteEms 
memponents that do not add to the capabilities of the 
network. This analysis can measure the device utilization of 


moecrric comoorents within the network. 
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The key measurement of a computer communication retwork 
is the network’s workload capacity or Cer OU rot tease pi t 
Ps eenerally measured ir nurber of message units per time 
period, and provides a measure of St rectiveness an, 
erericiercy of the system. The parameters involved ir 
Gepovenput are: 1) network configuration (tonclogy), 2) 


sa 


network control algorithms, and 3) network reliability. 


Eee OUMMA SY 

Peeooutron to predicting performance in systems where 
Peiemaorrect:On of data is difficult or the syster is ir 
mesens stages, 1s to build a model of the system. The model 
could then ve tested over the entire Sorect runt of 
Bemrormance specifications. 


pemezoe) Of performance @valuation is the prediction of 
d 


the 
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gree to which the system fulfills the intended 
Omrecvives., ihe maeior concern in computer communication 
networks is the degree toe which the networs can voerform the 
meeeana. the degree of efficiency with which the task is 
Gompletec. - by-vroduct of the evaluation should ode the 
Moemurrication of areas of over and urder-desifn. Cree 
design failures heave been identified, design tradoorf 
decisicns can then be made. This process of performence 
analysis is aimed at optimizing the existing or tlarned 


a) 


metwerk’s performance and ensuring that the performance 


Meoewomimen contracted user recuiremerts. 
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ere! APPLICATIONS OF DISTRIBUTED SYSTEM TYCHNOLCS?7 


Jae OCUCTION 

mpeseeeciidpter discusses current military programs and 
Mmesearen efforts thet ere apolying the concent of autorated 
memwerks tO tactical missions. [t is written to give tae 
reader sore background information Om progrars and 
Mermminolbofsy. With this hackground, the applicability of the 


Simulations described in later chenters will be clearer. 


PeeeeercX 3) S¥VITCEING 

iiemeeesensT!SSiOn of coTrputer to comouter ql ee! 
messages feismeieades Sleniticant impect on communications 
meerecmene techniques. In fact, the concept of pecket 
Peron ingz ©vas invented to a large extert vecause of tae 
mpeeemececuirements of corputer obdesed systems. racket 
switching was designed as an alternative to circuit 
Switching. 

The circuit Switching technioue of older communications 
systems is a method of Sstaenryshine 2 Toute wns 
comrunicatiors treffic whereby a complete link bdetween the 
Calling ard receiving station is set up and rairnteined 
Peotieively for the exchange of those two stetiors. The 
Mommeetlonmeis ) Teinteined until one of the stations breaks 
off transmission or reception. A technique such as this 
tends to be westeful in computer cormunications Decause 


comouter communications are tyvically bursty in nature; 
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that is, the messages are very short in duration end require 
fast resvonses. 

Bolerseun SWitching 12s design2d to make o?ficiert use of é 
moemmunicaetions chenne!] when tne traffic is bursty. eile In 
this techniauve messages are divided into discret? veckets. 
mpaeret 15 2 Ylock of information containing a fixed rurbder 
of bits. Each packet cortains the text of the message plus a 
control header. The header contains enough inforration (for 


example, source, destination, routing plan, message sequence 


rumber, etc.) to guarantee the vacket will arrive at th 


a” 


oroper destination. In addition, there will usually be some 
checks or each such block, so that any switch throveh which 
the packet passes mav exercise some degree of error control. 

Powe. — S20WS a@ typical corposition of a packet of 
meeenrmation bits. This pverticular example is taxen from a 
packet radio network. [16] 

In a packet-switching network, the packet represents tne 
fundamental unit of transportation. One message may be 
broken into several packets and each packet may De 
indevendently routed to its final destination. Of course, at 
the destination the packets must be re-assembled in the 
correct order to reconstruct the original messege. 

Because packets of the same messagfe can be sent ty 
different Routes, congestion Om the ws reetwork can de 
decreased. Fach packet contains its own control information 
in the header, ard there are no lengthy conrection and 


peeseommocte times as in the case of circult switched systers. 
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HGURE ISFORMAT OF PANIET PACKET (PRCAP3) 
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It should be noted that messages which are ovbreken into 
Meieeets ere only meeningful withir the network. Wher packets 
Beeeeoess=d «6threuegh 6 6sSeteweys)6€6©6inte:)«€6ccther©6—6lU6packet-switcned 


MeewOraS, a new intre-ret level of protocol is recui 
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Pemiees the vest known example in the sriliteary of a 


meme sCala aistributed system is the ARPANET. This research 


(D 


“fort has been sponsored by the Defense Devartret’s 


Ra@vancec Fesearch Protects Agency (AOPA). The ARPANET is a 
non-secure, pie Caer —sWwirechedas distributed Computer 
SommmnicatioOn 2&twork which Jlin*s tcg2ther tne computing 


[mere ties at universities ard military installatiors across 
the continental United States and reaches overseas to London 
and Hawaii. 


Diemeustitlcatian anc advantazses of 2a network suchwes 


fee BReoAgE: ar= summarized in the following excerots from 
rae tet Computer-Comrunication Networks written in 19736: 
[1] 


“Cre of the most successful espects of the erperiments 
moet eo use of time-shared computer systems corductedc during 
Iewew Dest Gecede Beas the ability tc share computing rescurces 
SOneecwer toemmsers eg the syster. Controlled shéring of 


déta apne software, SSeS the © Sharice cy. tte 
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Miwee-Ghamine syster herdwere, kas 1e 
Dao Tamme oroductivity and better overall utilization of 


the corputing and user resources. 





Fwen in these time-snaring systems, however, tne system 
Sepecity was Simply rot largs enouzh to oerform all the 


meordee T2equlrements and ccmpouting potential that a derision 


iD 


feeeer required, There was the lack of a large enouch 
Bommunity (Critical rass phenomenon) in a Single anplication 
area, eewOlse it 15 poSssibdDl= to physically transfer 
Meeearenr> Of Gata frof one community to another, this causes 
restrictions in language standards and hardware systems. 

To quete further: A viable alternative to Croan air 
meawsreragility, while permittine full rescurce sharire, is 
momerovicS <« coTmurications syster tnat will perrit users to 
access remote programs or data as if they were local users 
Meommeeet system. in addition, it should be nvpossible for a 
Meer bo Create a program on his local machin® that could 
Make use of existing programs in the network as if they were 
available cn his local machine. Pather than trying to rove 
Pom—eomerarems trom Machine to machine, the retwork would 
eeepow the user or his poregram to comrunicate with a rachines 
Sow diem the program alr2ady executes. If erough machines 
aoe connected intoc such a network, tne total corrurity in 
Seeepeancicwlar aoplication ar@a would be sufficiértiy large 
paouenate reac? critical mas. Lie 

chs, essertially, 15 “tre oreatvonele for wirliteary 


atolications of the ARPANEFT reseerch, doth on the stretegic 


ema Gacta@al Lavell. 


Meer CG LEAPY APPLICATIONS 
Meee aay spoken in 4 previous chapter of the tremendous 
srowth of automated data systems. Tactical data systems, de 


Pieye f Or «6the purpese of intelligence, vesernel manag 
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Tort, 


Mmepcecirection, logistics, or command and cortrol, terd to 


de engineered and cevelored Separately witkhcut the 
consideration of total military mission. Nevertheless, the 


battlefield commander cannot make wise decisiors based on 
input from just one of these systems. There is a good deal 
of interplay between all of these functioral areas, ar4 all 
must be considered. 

One single tactical comvuter in a single comrmard post 
amen ot oe built te store and update all of the data 
mepresented in the combired systems. Ani? if it could, such 
centralization would he unwise. The answer seems to be a 
moor y outed .comouter network built to interconrect end snere 
the resources of the individual systems. AS means 
Sverlevyinge an ARPANET-like architecture onto a series of 
Mestre aouted orocessecrs or the battlefield. 

Tne AFPANST distributed architecture eeceraphnically 
separates data bases and computing resources. This 
distridution tends to decerntralize a network, roving fror a 
mredi tional hierarchical On mveira t Lom eG cme econ 
Peeeepy oes cortiguration. Such decentralization is imrportart 


momcoverall syster survivedility end reliedility. A network 
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architecture such as this is cavable of remain une 
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.operatioral ee one eye rore nodes is ercoared 
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non-operational. The architerture, combined with packet 
switching Peecnn ology. allows for sufficiert alternate 
routing capability to ensure a robust syster. It offers 
Significant improverent over sore of the presert beéeckdons 
(hierarchical) systers in which the feilure of ore rode 
alone the chain would completely disruvt comrunications on 
mre Entire network. 

Mimo womy10US that @ mobile and tactical application of 
ARPANST technology would offer new challenges to syster 
engineering. “ost apparent is the fact that A®BPANE™ sites 
are interconnected dy high speet, low-error, fixed telethone 
mmo s. ©2is Kind of interconnectivity is net vossidble on 
eeoememac OJattleficld. The only other alternative is to 
utilize meoils, digital rac lo equipment to achieve 


msornectivity. 


tel 


meee LOAA SYSTEM 

Several years ago researchers at tre University of 
Rawaii began work on such hardware. Because there was an 
meusually high @rror rate on the locel telepnhene lines, 
rerote users of the university computer were unable te 
effectively communicate with the computine facility. This 
led to a research program to irvestigate the use of burst 
radio transmission in place of telephone ie mes Ou: 
error-free, line-of-sight corrunications to the corputer 
center. The resulting effort became known es the Aloha 
mopcmweea series of pecxet—-switched, ultra-high freauency 


Sigtemeradio terminals. [13] 
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The Aloha Sys a is essentially a broadcast, 
multi-access network. The broaicast cravability of a radio 


Seermel irplies that a sigral eenerated ody @ radio 


ps 


transmitter may be received over a wide area hy any number 
of receivers. Multi-access capability” of a radio chennel 
means that any number of users may transmit ecv2r &@ commor 
Siernel, Fence, all users within line-of-sight of one 
another form a network that is completely connected, 


Mmnaeperdent of the rumber of users. 


fore okt! SADIO INTROLUCTION 

Peseercen done at the University of Jawaii led to the 
mevelopment of packet radio. Packet Radio extends the Alohe 
Peyote m to military uses. The goals of military experirertal 
versions of a packet radio system differ from those of the 
original Aloha net in the followine areas: [12] 

(1) Distributed control of the network managerent 
muretions should be ovrovided arorge multiple statiors for 
reliability, and the use of a netted array of possibly 
redundant repeaters for area coverages as well as for 
mMeriavility should be included. 

(2) The system should use spread-spectrum signaling for 
coexistance with other possibly different systems in the 
Samemoena end for re UrOusctl enw Umea coumaccustic weve 
meoommolozye nas vecome aviable currezt choice for metched 
filtering in the receiver. 

mem tnepprovesior of authenticaion erd erti-decevtionr 


mechanisms is required. 
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(4) System vrotccols should be incorvorated that verform 
networ mapping to locate ard label repeaters, route 
determination ana resource allocation, remcte devueezineg, ane 
Peer cistribduted network functions. 

(5) The use of verious implementaticn teckniaues to 
provide efficient overational eouicoment such as rereater 
power shutdown except while processing packets shceuvld be 
meciuded. 

Because packet radios operate within a broadcast 
meaeworm, 2nd al] the network radios use a common freauency 
Bema (1710-1852 MPz), tais technoloey has sore faveradale 
moplicatiors for freauercv Management and f ReCMe Res, 
memisemvetlor. According to current Trilitary doctrine, the 
mmeeouency spectrum is allocated roughly in accordance with 
@ach user’s stated requirement. In ean Army or Marine 
Mrvisior this results in a frequency manegerment problem of 
meometTeny nets reauiring too few frequéercies ari a constant 
threat of degraded cemmunicatiors due to mutual irtefererce 
meodlems. Once a frequency is alleoceted for a derticular 
mec wore it 15 not available for use by Gthers in the same 
area. 

This might be ean offective maragement techniaue if each 
assigned band were actually used most cf the time. In 
peceremeel tis 15 not usuelly the case, ame much of tns 
frequency spectrum is idle (not engaged ir Carryire 


meee ric ) . 
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A breadcast network in which a number of usere shere a 
common broad frequency band offers improvemert to this 
Situetior. The limited frequency ssectrum could be used crore 
efficiently if (1) the shared freavercy bard was wide erousk 
tc ellow all users to transrit reauired traffic, (2) a 
Seamnel access schere was defined such that all users could 
access the channel when needed while at the sere time 
@llowing littl® or no mutual interfersnre, and (2) the 
edenoel wusage was high enough to ensure rinitrur erpty tire 


when the channel was not in use. 


pee COPANNTL ACCESS SCHEMFS 

One primary means of categorizing radio OrOdc cas t 
Systems is the method emploved for channel access. AS 
mentioned earlier, packet communicetions have found 
Mmeperrent epplications in ground-based radio informatior 
Memeo uion, and ir this situatior there etists a conron 
hroadcest Channel that is available and shared by a 
multiplicity of users. Because these users derard access to 
Bmeomeciannel at Unpredictable times, sore access scheme must 
De introduced to coordinate their use cf the channel in e 
meeeviiecwseorevents degracations and mutual interference. 

A large number of channel access ideas fave deen 
meer roanmmerelyzea enc described in current Literature. For 
a sumrary of these scheres, see [14]. 41] of tnese scheres, 
Mmewever, mient de placed ir one of three oroad categories. 


[15] Fach category hes its own advantages and costs. 
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ieecatecory I 

The first céetegory involves rardom access cortertion 
Be@emes wnereoy little or no control is exerte4 on the users 
in accessing the channel. This results in the or-asiczal 
Smelt si0n Of packets on the air. A collision itplies thet at 
ieoue Of Colliding ovaczet is unintelligitle ard that 
Siemnel Usability for the time of the collisior ray be lost. 
femee cose oem]s woich fall into this first cat®secry are the 
Mesce- Oha, the slotted Aloha, ard to ea lesser extent, 


Carrier Serse Multinls Access. Thes 


‘D 


ere wre access mataocs 
used by packet redio systems. 

ome oct tier) understand rendor access S00, Cr Leo ® 
medemes, consider the example shown in Figure 2. There ars 
emer numoer of users, Sach of which transmits sore rupber of 
Packets of time duration tau at random times. Line fceur, 
Pieter os. Inaicetes the total traffic that all the user 
mere meumte Se7d jn a fixed time. 

[teemiess exetTole all traffic is eble ng be 
transmitted POmeNOUt ME COMMiIect  oxc2 Dt fer the  cellisior 
indicated by the hashed area. These two ovackets (P-1 and 
X-1) may both be urrecognizebdle to the receiving station (at 
least one will be unreadadle) and both could reouire 
retransmissior. 

Iemeerco—-slotted Alona random eccess technique, 
Btlemieoeaoe transmitted es soon as they reacn the tcp cf the 
Beeremeueoueue set the radio. No cornsideraticr is mace of 


q 


Current Chanre!) activity. Therefore, they risk collision 





Peep ouner pnack=ts on the air. 


In the slotted Aloha rethoc, tire is droxer into 
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aie co ti mexinur time of prepesati cr 
Memeeerce pee retwork. Users ere restricted to trearnsrissicr 
Beepeat 22 Deginning of each time slct. Azain, collisions 
femeeoe frequert. 

In the carrier-sense mode, the redios listen defore 
maeyeetclx and therevy reduce the risz of packet collisions. 


Mee LTreadio senses tre state of the channel befor 


(D 


Mmeanomubbing. iif the channel is occupied, tne ratio waits a 
Pandom arournt of time and senses the state of the chernel 
Been DStOrs attemuting to transmit. 

Peeemportant measure of peformance for evalltatize 
these random access techniques is throughput. Throughput 
mueracnel) radic techrology is defined slightly differently 
maomeiune Gerinition given in Chapter I]. Here it is d2fin=3 
as the percentage of time that the channel is ectually 
caoorea ey Useful traffic. Or, to put it enother way, it 1s 
the message density on the channel. IS the charrel cerrying 
Meerileestratfic (non—-colliding packets) most of the time, or 
is there a lot of time wasted between vackets when the 
channel is empty? 

Figures 3 and 4 show how throughput is celculated in 


Both techniques. 
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RANDOM @AGGESS SCHEMES 


aoe 
user A-l A-2 A-3 
A — ———— time 
B i ] 
user K-L1 K-2 
K time 
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Giestoulad be obvious that CNTOUgaDU ty ais haemer ir 


Pee Caérrier-sense mode due to the decreased number of 
collisiors. In féct, analysis has showr that the maxinurz 
througnput possible with the non-slotted Aloha metnod is 
mperoximately 1/2e or 18.4%. Throughput in the sletted Alohe 
method is twice as high as the non-slottead method (38%). 
Throughputs as high as .88 to .9@ have been ohtained using 
the carrier-sense rode for cases in which the channel 
propagation time is small compared to message duration. fFoth 


“ 


or these methods are classified as asynchronous. 

Another important measure of neformance es 
distributed computer systems is a low delay time. This mears 
that queries and resvonses between the system and the user 
take a minimum amount of waiting time. A short delay time is 
important when there are many intsractive users On the net. 
ieeecaliy, in order to decrease delay time ovacket lereth is 
Shortened. Long packet lengtns, however, are necessary to 
increase throughput, shorten queve leneths and decrease 
peeecessSinzs overhead ver bit. 

Omethesbattlefield, calls for fire from ea forwerd 
observer would typically be snort ressages requiring a fast 
response, whersas, intelligence summaries are nermelly 
meomoiempases long and require ro reply. If beth tynes of 
Wesoacssmere Carried by the sam® ccmmunicaticns chanrel, cne 
Can readily understand why there are tradeoffs between 


throughput and deley time. 





peeecategory I] 

Poeene ODpesite extrere of caterories of radio 
Beanmmel eccessS methods, there ere schemes whicna uss 
completely static reservaticn access metnods. These schemes 
pre-assign capacity to users and effectively ereate 
“dedicated. as “moosea tO multi=access*, Chanrels. “Sucr 
schemes es Time LTivision Multiple Access (TDMA), Frequency 
Division Multiple Access (FIMA), and Code Division Muitiple 
Meeess (COMA) fall irto this category. The Joint Tactical 
[meeorration Distributior System (JTIPS), Phase I, end the 
U.S. Marine Corps Position Location Reporting Syste (PLFS} 
mee tne TfV”A scheme in which time is broker dewr inte 
discrete intervals. The largest time cycle (called an 
“epoch in JTIDS) is divided into thousards of smaller time 
Slots or windows. Fach user on the broadcast retworxk is 
Meoteneca one or many time slots in which he can transmit 
messages. After the vassage of the cyclic time overiod his 
meme slot again appears and he can transmit again. This 
technique, obviously, is highly dependent uvdon all users 
Dpoemiemine accurate time synchronization. Thea FDMA and CTMs 
scheres have also been developed to statically assign eacn 
Meera fixed portion of the chann?l according to e uniaue 
freauency or code respectively. Here the problem is that a 
mmsiby User will often not use his preassigned ceveacity, iM 
meamerneecase it 1s wasted. when a user is idle his portior of 


the channel cannot ve used by other stations witn traffic. 





ome Category III 

Between these two extremes are ee dyraric 
Meo-tVdtion systems which only assign channel Cavect tage 0 -s 
user wher he has data to serd. In these schemes a Ceriair 
BerttOr Of the channel is set aside in which to aqyrémically 
schedule transmissior times. Several schemes fall into this 
Gategory. In a Pollirg schem® tne user waits passively to de 
asked if he has data to send. In ar active reservation 
Scuems the user asks for capacity when he needs it. Ir the 
Peeraeslotted Alternating Priority scheme a toker is passed 
among numbered users in a prearranged sequence, giving each 
permission to transmit when he receives a toxer. The cost of 
Meese scntemes 1s the overhead reauired to imolement the 
dynamic reservations. 

Peesfollowing Figure 5. sSurmarizes the costs of 


these three categories. [15] 


The Cost of Distributed Eesources 





Access MOltIslonrs Corer ou Idle 

Method Overnead Capacity 
Random Access Contertion yes re le 
Dynamic Reservation no yes ro 
mereaeAliocation no no ves 





Ho. CURRENT PROGRAMS 

AS was previlous. 7 mentloned, »séforSeeteree scale 
Peeorri outed data systers cen be introduced tt. 2 sgrebile 
Mmeeeerisid, higher cevecity communications hariware is 
meguared. The U.S. Army is working on two programs to eet 
this redquirement. The two systems under @2velopment are the 
PERS/JTIDS hybrid and packet radio. 

An Army Letter of Agreement [25] which addresses tne 
need for these systems reads: There is én urgent need for 
GOmmunications capable of suvporting existing end vrograrned 


mmeoratec systerns for Air Tefense, rield pee ae) 


(Dp 


yy 
Mmepeliigence, and Command and Control. Characteristics of 
Meeeare=toO-machine communications, covpled with the reed for 
meso reaction times and a high degree of mobility, result in 
a requirement For a sovecialized Cister uted data 


Mmeammumications system. wvWithout tnis data communicatiors 


tt 


Mmerovement, hiehnly sophisticated anc highly effective 
weapor systems fielded in the early 19&2°5 will net orerate 
mopeull potential. 

heme pnere describin Bresent COmmuriLceti@es s7sSe@ams 
Pm S document speaks of existing e2u4uipnent as treing 


“technologically old, eenerally marnvally connected, to0 


large and immobile (multichannel), and reauiring intensive 


> 


Maintenance and logistical Support. The CiuEec 
Gommmmication syster cannot, without the addition of & 
Geeta data communications capability, meet the demand 


Dmpesed by the emergence of autorated systems in the early 


198@’s.. 


ad 
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pecelos Extert of this communications sShertfell is a 
matter of intense study dy the Integrated meetucal 
Communications Study (INTACS) Update Study effort. 
EomeeLro/JIILS hybrid offers a solution to this prooler 
Moone fid-198@°s. Packet radio, also, is a promisinze 
meonmnolosy to satisfy future tactical data Jistribdution 
missions. Its development schedule, however, effectively 
Sliminates it as &@ short term candidate. 
merino /JTIDS Eybrid 
pec eameaesicrivtion ef the PESS/ITIoS Hybrid is 
MeweoossSidvle here. Eriefly stated, nowever, the system is a 
corputer based system which provides real time, secure data 
Gommunications, and position location and reportuirne 
ieror@mation for tactical forces. [It combines desirable 
memeores Of 9Otnh the PLRS an the JTIIZS systems, using 
modified eauivment from doth systems. This syster is planned 
mereintroduction to the field by 1966. 
momeecdai tion to work bein2 done on the PLRS/JTICS 
Moria, tie Army is monitoring or ovarticipating in some 
memeresting tests with npacket radio, describec in the 
following sections. 
Beeeoeee francisco Bay Experimental Packet Redio Network 
The current exp2rimental packet radio network teing 
memervised by SRI International is located in the Sar 
Francisce Bay area and has been overational since July, 


1976. Figure 6 [16] shows a map of the retwork sites. 
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FIGURE G6 LOCATION OF MAJOR ELEMENTS OF THE PACKET RAINIO TESTBED 
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There are two station PRU’s located at the Menlo Park site. 
Fach station has an associated PLP-11 computer attached. The 
network has four fixed repeater sites spread over th2 area 
and a variable number of pacxet radio user terminals 
(typically four to six). There are two vehicular pecket 
Radio términais. These mobile terminals are an imtortart 
Mempect Of Lhe network, and a hand-off of a mobile terminal 
mom One repeater to another is frequently exercised. 
5. The Fort Bragg Test Bed 

The U.S. Army has also recently sét uv a test bed 
moretne €valuation of Packet Padio at Ft. fregg, North 
MerOtrita. ARPA is sponsoring this effort, known as tne Army 
Data Distribution System (ADDS). “The purvose of the ADDS 
Emeerimert is to develop an environment in the residert 
met il Airborne Corps to permit user participation in the 
mevelopment, refinement and eva Nua GiOnee Oi: lemon ce tae 
concevts for depnioymrent of distributed data in support of 
meoure tactical Army data distribution requirements. {17} 

in this multi-phased experimrent, Ft. Srag2e is 
meee rhencing a step-by-step builc up of resources. The first 
phase of the experiment began in January, 1979. Three 
computer terminals, a network processor (called a 
TIP-Terminal Interface Precessor) and a host coTputer were 
installed at Ft. S3rage and connected via commerciel 
Meepnone lines into tne ARPANET. After installétion, 


@eerator training began in i-2 day courses. 
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n@ second phase began in Avril, 1379 ard the number 
of terminals was increased to fifty. The training in these 
Bies]s acaudinted operators of all ranks with tke >besic 
pee programmed capabilities of Ene AC irc lucim. 
electronic mail, file management, directory maintenance, 
Meme Cditing, ard printing. More specific eprlications 
geared to tacticel information flow reauirements are also 
being tested in garrison. 

mods Dil of the ADDS.experiment is current 1ly seine 
memana involves the introduction of Packet Radic irto the 
Meoed. The PR network at Ft. Bragg will evertually zrow to 
memeacemately ee radios and 2 control stations. Initially, 
the redios are being employed in garrison te replace 
Meemcewired Connections. In the future, they will be deployed 
to the field in support of Corns exercises. 

meleme Go nagdic is expected to rullfill at leest two 
Meaepor roles in the Ft. Bragg testbed. The first is to 
determine if this communications technology will satisfy the 
meetical data communications requirements of a corps on the 
Deuciecrield. In this role, the system will be placed intc 
the testbed as would any other commurications syster 
proposed for Army use. A second role is to provide a broad 
Dard communications channel [OG EROUIeT.  SsvVoteus. Un2er 
development which requires a data transfer capadility. In 
eersoerole the PRNET would provide communications for TACTIRE 
or some other intelligence or air derense system wrile 


Maintaining its ARPANET connectivity as well. [17] 
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rPeoOrtseirom the FiWe brags testbed ind@eate that the 
mVilI Pa rbporne Comps personrel have hao dei, amtd 
enthusiastically adapted to the computer based 
permrpuricetions technology. It is possible that the use of 
mers Gata distribution technology can become és routine to 
commanders and staffs as voice communications are today. 
[17] 

In any case, the Ft. Bragg experiment represents ar 
innovative and unique approach to investigating advanced 
Bemeeots in Army doctrine and tactics. The testhed is a 
Meparture from traditional Army tests designed to arrive at 
production decisions, and is being driven by the urgent reed 


meneincreased tactical deta distribution capability. 


ime fGLURE IMPLICATIONS 

lemets not an exageration to say that these ere very 
meucial days for the U.S. military. Resource investrent 
decisions are more important now than ever before in 
history, and the consequences of bad judgement CEEor 
potvential or great loss. Some would argue that an 
ever-increasing dependency upon technology by tne armed 
Mmerecese is a very dangerous trend. Nevertheless, it is 
apparent that eléctronics and telecommunications advances 
meemevpeetnnin=e to have siernificant impact upon stratery. 
miepber Ore of the U.S. Army Combat Communications Yield 
Manuel is entitled “Command, Control, and Communications 
(C3). A quotation from this document helos to stress the 


maaemorpys Of future battles and the necessity of eccurate 
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end realistic planning for that engagement. [24] 

“The U.S. Army has arrived at a ocint wnere technology 
aeomrediity Nave outrun our old tactics on figkting and left 
ther in the dust. Ye have come to the shocking realization 
that the old way of coing thines will not work any rore.. 

“A good exarple of the change in combat reality facing 
today’s soldier is an often used statistic fror the 
Arab-Israeli War of 1973. In 2% days, over i788 tarks were 
destroyed between the two sides. That’s as many tanxs as 
Meere are in five U.S. armored divisions. Techrolcgy has 
improved the weapors systems to the point where ea tank hes a 
B=o9 Chance of being hit by the first rounk fired et it. Ye 
Tieweeeretcol our tactics to meet the reality of the next 
Ment. 

Certainly the capabilities of an army”’s ccmmand ané 
Sem rol system has a great influence upon the capability of 
Mee tOrce as a whole. The trends and technolcegies described 
Memernls Chapter have far-reaching implications to doctrine 
and pose sore problems that have yet to be solved. [It is 
beyord the Beomem Of SEthis thesis ‘Vomedwell on @trese 
Meolications in great length. A listing of the most odvious 
ones, however, is interesting and instructive. 

Weert ot Command 

fers toreali, how will distributed systens chenge or 
Mmerect the traditional chain of cormand structure? Cé system 
architectures typically reflect the chain of command withir 


an organization, and this results in most C3 systems deing 


44 





eye oterarchicel in structure. Distributed systems tend to 
Memewd-lixe, peer structures. In a distributed system, is 
it advantageous to practice the concent of “srip 2chelon’ 
reporting, in which certain levels of ccmmand mey send 
Ieetric €6€6©cdirectly to the highest or lowest elements without 
intermeiiate information only stops? Certainly this weuld 
tend to decrease the tire of delivery of messages ard would 
avoid congestion on the network. But can the intermediate 
memmenaers aftrord to miss information that right vrove to de 
mee tical er essential? what affect doy distrivuted 
meervectures have on the traditicnal role of corrunications 
centers end message centers? Would the requirement for these 
functions de eliminated? Waen the network is organized ir 4 
Meer structure, how are protocols designed in erder te 
preserve a priority system to message traffic? These are 
questions that remain to be answered. 

<. Network Management 

Next, a very important question is the mannér in 
Which network cortrol and data bas® management is exercised. 
Although distributed systems appear outwardly to oe 
@ecertralized, a static, inflexible retwork corntrel design 
would make the so-called distributed system as vulneratle 
memeitS maerarchical vredecessor. Clearly the responsibdility 
for network management ard data vase updating must te 
transferable withir the network, and the capability shceculad 
Wemenared by more than one station. There is a4 tradeoff 


reached, however, betweer one Station and Multi-station 





operation. The more nodes there are which car exercise 
network control, the more vulnerable tne entire netwere 
becomes to spoofing ani deception techniques, and the rore 
Boom y and comolex it becomes. It is interesting to note 
ees, that some of the hardest decisions and longest delays 
in the JTITS program have dealt with this question of 
network ranagement. 
ce. Yow Much Redundancy? 

In addition to these important questions one must 
ask also, How ruch redundancy is enough?” Although 
Meer touted networks are more survivable and recurncart, what 
Peeeonor Odck-up systems are still reeuired? Certainly an 
increased dependency Upomeesatellite communications in 
today’s world has decreased the investrert in long-heul, 
high frequency (HF) communications systems. Sore have argued 
Pemeeomconvincing reasoning that tnis is a dangerous vosition. 
It is generally more attractive to engineers ard pvlenrers to 
mavent and employ new systems rather than to irprove the 
Old. Nevertheless, it is necessarv to retain and maintain 
older, oproven hardware as back-up, s@condary equirment. Tne 
question remains, Fow much is enough? 

freee roOpagzation Loss Due to Higher Freauency 

Pecause of the corgestion existing at lower 
frequencies and the high oandwidth requirerents of new 
automated systems, new communications equinoment is beirg 
@eermenred= to Operete at very high carrier freauercies. This 


Mmemeectseprepagation to strictly line-of-sight distances. 
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Ween r oS Situation is acceptable ir ground-to-air and 
Prouna—-to-Satellite Communications, eG poses serious 
moms rralnts UoOn gsround-tc-sground mobdsil2=2 communicaticns, 
esvecially ir rugged or forested terrain. The arourt of 
Meorazatior loss in this situation is nightly significant, 
mages ae Utllity of these systems has yet to be proven. 
5. Management Information Systems 

It was mentioned previcusly thet tne developrent of 
an effective Management ine ogi t WenueoyG reds 61> sro 
mmtesrtate and displey data to a cormancer and kis staff is a4 
moemidadle task. The Army, in fact, has been wrestling with 
this problem for over twenty years while attempting to field 
muse lactical Operations System (TOS, which is, in essence a 
MIS). After that amount of time, one questions whether such 
a system is nearer completion now than it was in 19€@. 

ee .e@teroverabdility 

ie Pipe tary is fast firedien 2 out thet 
interoperability means much more than mutually compatible 
equipment. eealso mean Comocuantlity 0: precedures, 
Moet vase, end sessage formats. One should watch closely tne 
Souemnvedmecevelopment cf JTIDS and ettempt to judge the 
Siee@essect joint service programs. The interecnerebility 
requirement tends to introduce system ccirplexity in an 
attempt to make the system “all things to all people. ‘hen 
one moves to the oprobdlem of interoperability in toe “ATO 
environment, the question again becomes, Eow interoperadle 


Can eauipmert be without becoming too costly, tco dvulky and 
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generally ineffective?™ 
Uae Voice vs. Data Circuits 

Another important question yet to be resolved is the 
Mamecreuracde-Ort of voice ard data circuits. Agair, TiDs 
Sage D2 tne case in poirt. Some services seem to de 
Side-steopineg procurement commritttrents vartly due to a lack 
Mice r inition of system capability in this arse. Although 
tactical commanders tend to prefer voice channels, voice 
channels require an enormously greater bandwidth allocation 
than data channels. If a commander is given tne choice of 
having one voice channel or ten data channels inte his 
semmand DOSt, which will ne choose? Which should he chocse? 
What will the system offer? 

8. System Cost 

Finally, the question that will db¢ asked most often 
is simply: Zow much will the syster cost? Costs are 
divided into at least four categories. Tnere are hardware 
and software costs, (it is common kncwledge that the latter 
are now a greater consideration than the former) and there 
Mecerynitial procurement costs and life cycle costs. 

Included in these costs is the mantower question. 1s 
Mt realistic to think that as systems become more and fmore 
highly technical that the personnel who fix, operate and 
manage the systems will >be »detter educated and rore 


professionally competent? 
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IV. AN INTRODUCTION TO PETRI-NETS 


A. INTRODUCTION 

mre ss purpOesSe of tnis chanter is to introduce the reader 
to the particular modeling tool which forms the basis for 
this research. The history of Petri-Nets is first discussed. 
Then an explanation of how Petri-Nets work is presented. 
Following some simple examples, the chapter concludes with a 
brief summary of the Strengths and weaknesses of this 


modeling tool. 


Pee HiSloORyY 

The Petri-Net is named after its discoverer, Carl Adam 
Petri. These nets were developed in his early work in 19€2 
in Germany. They soon came to the attention of Anatol Eolt 
Who Was then leading an Information Systems Theory Froject 
mor Applied Data Research, Inc. The work of this group 
eventually led to the theory of systemics [5] which dealt 
with the represertation and subsequent analysis of systems 
and tneir behavior. At this point the modern forralism and 
notation of Pew ri Nets was in pRodwiceds Ona also 
@emonstrated the usefulness of the Petri-Net rodel in the 
representation of Systems Characterized by ccncurrenit 
processes. 

Pernaps the single largest source of research and 
iererature regarding Petri-Nets has been Project MAC at the 


Peassaenusetts Institute of Technology. The Petri-Net mocel 
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meee Imtrneduced to the researchers at Project MAC due to the 
Boocmseron of Holt S ge2roup te J. Dennis” Comrputetion 
meemuetires Croup. This group hes produced several FE.5 
thesis, together with many reports and technical remos 
Mecling with Petri-Nets. In addition, MIT has sponsored two 
important conferences dealing with Petri-Nets. The first was 
the Project MAC Conference on Concurrent Systers and 
Parallel Computation held at Woods Hole in 1970. The second 
was the Conference on Petri-Nets and Related Methods, held 
eee) in 1975. 

Pow Oo<S a peecun at MIT and continuing et other centers 
Pa the United States, until recently tended to concentrate 
On the formal or mathematical aspects of Petri-Nets. This 
work bears resemblance to the research in automata theory. 
Ppmecawmenmus tO sahalyze systems ody representing them as 
Petri-Nets, formally manipulating the representation in such 
a way as to derive information relating to the »dehavior of 
the modeled syster. Because of the simplicity and power of 
Petri-Nets, they are excellent tools to use in the analysis 
Smeeconocinrent Or asynchronous systems. They are finding 
their way into a number of diverse applications. 

Petri, himself, is still actively researching, expanding 


his original thecry. His extensions have led to a form of 


general systems theory called net theory . Holt is 
Con) nudge es research, eoOmcent rating on system 


representation and anelysis of the formal revresentations. 
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PeeeeOW PETPI“NETS WORK 

Ssmoly Stated, a Petri-Net is a model. “ore 
meeetercdlly, it 1S an abstract, formal model that arnelyzes 
the flow of information in systers. [5,19] Petri-Nets alse 
describe not only the information flow, but the cortrels ard 
constraints of such flow. A Petri-Net zraph models the 
medGlc Structure of a system in much the Same manner eas a 
flowchart models the structure of a computer pregrarz. AS a 
modeling tool, Petri-Nets are esvecially useful in modeling 
meovems treat exhibit asynchronous énd concurrent activity. 

A Petri-Net consists of a collection of events and 
“conditions. In 2=rapni cal notation, eoncitions are 
conventionally een esen ted Dycmrncrheice “are cvernts are 
represented by bars. The Petri-Net is given Structure and 
moe Capacity for interaction by connecting events and 
@oraitions With arrews. 

POmomowetrOom @ Condition to 4dr event signifies an input 
Sonaition to that event and implies that every occurence of 
the event terminates the ‘holding of thet condition. An 
manowetrorm ar evert to a condition signifies ar outodut 
Seormdstlod, »and in this case, the occurence of the event 
eemmences tre holding of the output condition. The graphic 
moraurogueton a condition which nolds is the rarking of thet 
condition by a token. 

The behavior of a system may de tnoueht of as tre 
occurence of events as time progresses. If all irbut 


eenagwt1ors to an event hold, the event can occur. 7his 





Meswits in the holding of the evert’s output conitiors. 

Conditions may also be called “places or “nodes and 
events may also ve referrea to as “transitions. In tne 
Petri-Net model of 4 system, directed arcs cernnect slaces te 
meeesitions and trarsitiors to places. 

(aeweretri-Net is first given a verticulear structure of 
places and transitions, and then it is “executed. “Zxecutior 
is governed by a firing” protocol. 

Simply stated, a transition may fire (symbolizing the 
occurence of an event) wnen all input corditions or places 
[ieeoetndt transition are marked with a token. Wher all 
Mmeeuts into a transition are marked, the transition is said 
to be enabled. Figure 7 shows an “enabled transition. 

Execution of the Petri-Net involves the cyclic checking 
memedlies transitions orce during each time interval. Each 
transition that is feundc to be erabled is fired, and toxens 
are moved from the input places of the eradled transitior io 
the Mipuieeplaces of that transition. ‘this oprocedure 
momrireuess tor a set number of iterations. The flow of toxens 
in the Petri-Net thus symbolizes the flow of infermation or 
Control in the modeled systen. 

Peaeectcvasine Special methods for marking the nurbder of 
momeensedy the Petri-Nets nodes, the system status cén 0e 
meciretely sand effectively recorded. The state of the system 
is reflected by an ordered set of mark status indicators 


wnich correspond to the nodes of the graph structure. 
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Meets tnesis such an effective marking method is 
Uniquely employed to give the viewer an accurate Snapszot of 
network status. 

Petri-Nets have rapidly zained acceptence over the last 
decade. Along with this aceptance has been the furtherine2 of 


the understanding of Petri-Net properties. 


fe & SIMPLE EXAMPLE 

Figures & eanoueh Ti shew the various states of a simple 
Petri-Net as ex@€cution occurs during four successive time 
intervals. [21] Notice four places (Pi, P2, PS, and P4) and 
Maree transitions (TF1, TR2, ard TRZ). The directed ares 
memove the interaction and relationships between input and 
output conditions. For instance, TR1 will become enabled 
when Pl (its only input condition) is marked with a token. 
mmeremrimestidt Tk] fires, the token wiil be removed from 
mmeeiacutremconmditior (Pi) and ovlacec im its two output 
conditions (P2 and 24). In this manner flow of information. 
memcromenroi 25 followed through the modeled system. Figure & 
shows the network at time = @ with ore token placed in Pi. 
Fieures 9 through 11 depict the Petri-Net as it continues 


execution threugh tire = 3. 


BE. ADVANTAGES AND DISADVANTAGES 

(iteeeeombeowine crRaracteristics of Petri—-Nets were found 
By the autrmors to ve strengths when using this varticular 
moleeimen too! for Simulations in the context of this 


$ 


research: 
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A MARKED PETRI-NET (TIME = 0) 
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Figure 8 


A MARKED PETRI-NET (TIME = 1) 
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A MARKED PETRI-NET (TIME=2) 
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Figure 10 


A MARKED PETRI-NET (TIME = 3) 
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1. The rules governing Petri-Net execution are simple 
mem@aeeasy tO understand. This methodology can be oauickly 
grasped by those with nen-technical backzreunds who would 
ordinarily >be unarle to understand rathematical or 
meeetical modeling. Yet Petri-Nets retain a righ degree of 
@meecision anc accurécy. 

2. There is much flexibility inherent in the Petri-Net 
graph to model wide ranges of complexity. Tor instance, a 
model can be further abstracted by the revlacement cf 2 
complex network of nodes by a sinele node. 

5. There is a large degree of flexibility ir assigning 
time intervals durine execution. 

4, Petri-Nets are well-suited to ‘Snapshot ovortrayal of 
network states. This advantage is important in simulation 
languages and is considered a strong point of languages such 
as Gece and SSC RiP. Petri-Nets pess2ss Wad Ss 
Characteristic oy neture. 

See UreNe tS Nave the potential for a wide variety of 
uses. Basically, any process that can be flow-chartea cculd 
bemexpressed by Petri-Nets. Applications could include: flow 
oeomommetLoOn or control in an organization, informatiorc 
flow in electronics hardware, revresentation of computer 
software or, procedures and stages of developrent in a 
management program. 

6. Petri-Nets lend themselves well to comvuter graprics 


display. 
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feeeeretri-Nets are very effective wher modeling 
meomeurrert, asynchronous activity in a network or system. 

Certain weaknesses also becéme apparent te the authors 
memo Course of this work. They are listed es fellows: 

1. Although Pretri-Nets are Dace adaly Simple to 
Mmeerstarnd, tn® small building blocks of a network soor 
become exceedingly large and complex when large systems are 
modeled. The input files to some of the larger simulations 
in this paper were more than 1489 lines long. These networks 
Mens 06 Grawn On peper before their entry into the computer, 
ene this kind of effort soon becomes very tedious and orone 
mo, error. 

Ze Petri-Nets are dest Suited EO COLCGERTER tL. 
mevmemrencus behavior. When non-concurrent, SYMe 15 Orous 
Bemeavior in a syster is modeled the Petri-‘Net assures a 
larg® amount of overhead. 

Sem teetract thet Petri-Nets ere not zererally well known 
in the computer communications community could re a 
M@isadvertage when the user wish2s to prove the accureéecy of 
mis rodel. 

Seetine fact that the simulator employed in this thesis 
PnOntueewase Ge terrinistic could be considered either as an 
advantage or disadvantage d2pending upon the anpplicétion. 
Many simulations have value because of their stochastic 
feces Gertdin classes of experiments, nowever, need to xe 
understood not because of chance happenings but because of 


the operation of the laws of nature working upon the 
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elements of the experiment. 

Peon tun any modeling technique, success is achieved 
tmrough the modeier’s farilierity with the rodelirg tool. 
Petri-Nets provide an excellent means to model bese 
epplicetions best characterized by their asynchronous, 


eoncurrent neture. 





Mee NS! SIMULATIONS OF CCMPUTER CCMMUNICA 
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COs eR Lc 


A. INTRODUCTION 

Once the basic rules of Petri-Net execu Vinee ere 
Mmoaerstood, it is ae simple ratter to anply these rules to a 
communications network. The system modelea is the setwork 
itself. The movemert of toxens in the Petri-Net reoresent 
Dee flow cf information within the system: in this case, 
message traffic in the network. Each token beccmes a 
meocrete amount of inforMation cortained within the message. 

The places in the Petri-Net graph are used to représent 
Semmurications nodes within the nétwork. The directed arcs 
of the Ppetri-Net gravoh are used to represent the 
Mmumurteations iinks or channéis which interconnect the 
nodes. The chames 1 tions between nodes indicate tne 
Peeeeteineeety of the channel to carry traffic. If tke 
transition is enabled, the channel is clear, ard the ressage 
Mmemerelayed from input nod] te output node. 

@eewcareful structurirce of the Petri-Net grape imposes 
Upon the modeled system a variety of network protocols. An 
g@avencaze of Using Petri-Nets for simulation curposes is 
Mictemtees logic and ourotccol of th2 system are entirely 
G@emtcdumed in the structure of the Petri-Net graph rether 


than ry a cemolicatesd matnematical @lgorithm within 


Smrouration SofttWere. 


Ed 





fee tir sto OF NODES 


meemescrephical output of tne Simulation attaches 
meer icence to the shape of the nodes displayed to the 
MeeeeemetO facilitate recognition and interpretation. The 


meeeceriamental packet radio network in tne San Francisco fay 
area defines tnree primery tyves of nodes: térmirals, 
stations, and repeaters. A terminal is a user node at which 
mace rc 15 inputted or to which traffic is destined. It 
Goma be a iiully automatic sénsor, a handheld device, or a 
keyboard with CRT, but a terrinal is a plac® where users 
momemect to tne network. The statior is the noe at which 
Metmork control is exercised. the station typically keeps 
memork Statistics, Moritors flow ane congestion cortrol, 
assigns routing, and performs data base management for tae 
system. it 1s a terminal with increased processing 
capability usually provided by an attached mini-corputer. 
The repeaters are stand-alone dévices placed in numerous, 
Meeseersea positions througnout the network to ect as relay 
sites. Repeaters do not act as origins or destinations of 
martes, they serve the purpose of extending the 
geogrephical range of the networx beyond a typical 
Prm@e—or—sient distance. 

While all networks Ae HOt use tnis identical 
Toomurooay. these three functional nodes summarize tne 
requirerents of comrunication hardware in rost retworxs. in 
Piemcagmiurations in this thesis, three types of fieures and 


labels represent the functions of nodes as described aodove. 
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See cil PLE APPLICATION EXAMPLE 

Beeoraer tO understand more completely the avplication 
Mee etri-Nets to communications circuits, refer to Fizure 
MeemeechisS diagrem two distinct one-way communicatiozs 
meamoelS are represented. The first goes fror Tl to t2 ani 
memesreocona £0es from T5 to T5 and through T4. The irdivicuel 
mpokens are representative of packets of informétion in a 
packet switched environment. The three additional rodes 
forming a triangle in the center of the diagrer imzose a 
special Piming order upon the trensilionrsmeie wenee 
Communications chennel. These center neiés are systems 
overhead which ensure that only one packet can be 
transmitted during a single time frame. In fact, if the 
three additional center nodes are thought of as a clock, 
then the entire network is a representation of Tire Division 
Multiple Access in a network. A terminel can only transmit 
fens dg Particular assigned tire slet. After the tire slot 
masses, the user must wait until the clock cycles back to 
mrs siot agair. Because each trensmitter has a Unique tite 
Slot assignment, no two terminals can transmit during the 
Pegemecinme,sand COllislors of packetS On the redlo Orcedcast 
channel are elimineted. 


Bucomeweleamatlon Should give the readér a simple idea of 


a | 
wD 


Ree. 


fp 


Bieeranmer in which various orotocols are enres 
Obviously the Petri-Net in Fisure 12 ellows orly 


mon-eorcurnent activity on the communications channels. 
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ne removal of the additional overhead would allow 
Memmeunrment activity. In fact, tnis is sometizves desirable. 
Memmi nostence, those networks such as AUTODIN II which will 
Gaeeee Se of leased landlines will allow concurrent activity 
Memmi ae Network. “Tne Petri-Net is more efficient when 
modeling concurrent activity. The requirements to ensure 
menecOncurrency as in Figure 12 , causes one additicnal node 
and one additional transition to be vnlaced in tne Petri-Net 
Peep 2Or every transition on the communication links. Using 
Gee tundemental retri-Net described here as a srall building 
Dlock, a svstem of considerable complexity can d2 built with 


fee Orle@in and cdestiration terminals, and which allows 


Mer ets tO flow two directions with multivle, alterrate 


DPetns from source to destination. 


Pee PANDOMNESS IN PETRI-NETS 

The Fetri-Net simuletor used in this thesis work is 
deterministic. After the simulator begins execution there is 
mommeans tO interactively alter the sequence of events, and 
mrere is no element of randemness within the sirulator. 
meeause Of this situation, the seme input file willl always 
meve  tdentical output. Although the capecity for alternate 
mowuing within the communications network is implemerted, 
the tokens do not randorly choose their routes during 
measeuuione. Iney car only follow their opre-assigned routes 
Mmeomemotigin £0 destination. This Means effectively that 
memeamrouting instead of adaptive routing is represented in 


Mieeeesimulations. This is not necessarily a disacvartage, 


E+ 





however, aS sore simulations have snown better throughput 
mma time of delivery results using fixed reuting over 
adaptive routing [2¢]. 

Meeraosnt be advantaseous to modify the Fetri-Net 
Semulator to Make it more stochastic in charecter. This 
might be accomplished in at least two ways. First, tne 
inital marking of the retwork could be varied randomly at 
the beginning of each run. Certain key nodes could be marked 
Seerett unmarked according to the result of a call to some 
Pancor numder ee€nerator. Then the initial raniom state of 
meeecetwork would affect tne end result cf tne outpet file. 

A second way to add randomness deals witn tne Petri-Net 
moncept of “dynamic conflicts (see Figure 13. Sfoneen 
example of this particular network state). In this figure, 
the reader will notice that both Transitions 1 and 2 are 
Saeed, DUL Doth cennot fire. Only one transition can fire, 
Since in so doing it removes the token from T2 ard disables 
the other transition. Thus TRI and TR2 are said to be in 
mommmrct. inis basic relationship can be used to create 
Gither determiristic or nondeterministic ognravior. If the 
Balerry=NeCt Simulator is deterministic, the firing order for 
meeGeitions iin conflict is fixed according te a certair 
mues. ihnas descrites the case in tris paper. The firing 
Meeere Of transitions is explicitly defined by their ordering 
mameeite  incut file. In the case of Figure 13, if thi is 
MeetmiGetne input file before TRe, ard if a cynaric 


conflict occurs between ther, TR1 will alweéeys fire first and 
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Peemew iti rot fire during that time irterval because it will 
Mememoeer disabled. This set of rules gives a strict 
Memority Of firing to the retwork. 

meemetirin= order of transitions in conflict covli de 
me@airled so that it cccurred in a random fashion. This weuld 
eiiow the Petri-Net to be executed in a non-deterministic 
manner and add the missing asvect of randomness to tne 


outcome if so desired. In fact, Petri’s first networks were 


mon-aeterminestic because of this factor. 


meee MOP Y STORAGE REPRESENTATION 

an¢ amcunt ee MEMORY SStOrd2e un sary Bert teu: 
communications node is also easily represerted ir tne 
Simulation. In this work a maxirum number of seven peckets 
Mmemalbbowea at any ore node. This nvumoer reflects the buffer 
size of seven packets in packet radio technolcgy. [If at any 
meme a node accummulates more tnan seven packets, the buffer 
size has been exceeded and packets would theoretically be 
lost. When the buffer space is exceeded, the number of 
overflow peckets is disvlayed outside the node in e@ ree 


merning color. 


FPF. SYSTEM LCAD AVERAGE 

imemcyctem load cn the network can be réepreserted by the 
Memoere Of) Dackets in transit at any ore time interval. The 
System load then can be varied by controling thé frecuency 


PeememMesseaefe generation. The shorter the irterarrivel time 


between generated messages, tne busier the network will . be. 


oC 





At some point tne network will be saturated and unacceptadly 


congested f messege input is greater then message 
Brrougiput. 


ieeroec simple matter to construct e yressege eenerato 


ae 


Meee  etrim~vets. See rigure 14. In this figure Transiticn 1 
moeairing to two outputs. One can be thought of eas external 
and one output, Ri, can be considered internal to the 
MoeeworkKk. ihe external node can represent entry into the 
Sommunications channel. The internal output feeds a token 
back into the generator’ and will, therefore, fire other 
Packets into the network at regular intervals. The otner 
repeaters (R2, RZ) can ve thought of as delays which slow 
meen tne frequency of message generation. This configuration 
of places and transitions corstitute a méssege egFfnrerator. 
The frequency of generation can be staggered and ther 
Meveral g2rerators may be placed at the input of évery 


MmeomuricationsS circuit. In this manner the system loed on 


meee Petwork May be varied. 


4 
taj 


ep. 


Pie Perr ESSNTATION 


tr 


Meee Gianet model is very good at representing the net 
maguus at distinct time periods. In fact, each tire interval 
disvlayed tc the screen gives an excellent ‘Srapshot of 
network status. This is an important advéntagse inherent to 
fmeemeretri=~Net simulation. Anotner advantegs is tre 
Meer lity afforded ir assigning tne tire interval. The 
Meereras the prerogetive of making facn time interval as 


momeme or 45 Short as is recessary. Successive Snapshots may 
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Mmepresent the passage of tire of 1 millisecond, 122 
meeiisecords, or i hour, depending upon the application ana 


networse being modeled. 
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ee Soe EXPL MENT 
meee PS OCRIPTION 
An experiment was desizned Eo denmonmstrete “tae 


Memororlity of using the Petri-~Net simulator as a ovoredicto 


3 


of network performance. The experiment was verformed by 
keeping certain parameters constant and varying others. A 
meres Of SIX input files were run through the simulator. In 
all six files the network architecture ani the fixed revt3s 
were kept constant. Figure 15 shows the networr. There were 
five origins of message traffic and five destinaticns. Four 
nodes were designated as terminals plus one station. Tnere 
were four repeeters that performed relay functions withir 
MmemGerwork. Fach of the five origins could send traffic to 
one wmeeeour. destinations. Hac source to destiretion 
Bombinetior hed two routes for traffic to take. This made a4 
motel of 3& possible fixed routes in the networc. 

Tne controlled variables for the experiment were syster 
Moed, concurrent vS. non-cOncurrent activity, end polling 
mermieme, of Various circuits. The first three runs of the 
experiment were done with a high load. For the second three 
runs the message gererators were slowec down to give a low 
System load. Some input files allowed cencurrent retworx 
Meeivatry ane some required ror-concurrert activity. ®n two 
of the non-current runs the frecuencvy of odolling certain 
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Selected circuits wes increased. This woulda revresent 
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Sauvalert of assigning a certain user Tore time slots in a 
Meeesoc eme than another. It would @ive pricrity to tose 


myscrivers who have rore traffic to sen 


oO. 


Tre Only steéetistic gathered fror the axveriment was 
threugnput Measured in the number of peczets Whee 


Mecessiutlly reached their destination. This number coul2 de 


a: 


ee racted Peoctlwvemr rom the output queves at Gach terrizal 


or Sablon. the following points Suméerize tne 
Mempeereristics cf e€ach of the six irput files: 
ieee s <2-c4 were run eat high load. 
Peeves 25-2? were run at low load. 
peeeesece and 2D exhibit concurrent network ectivity. 
a, maps eo end cO exnidbit norn-concurrent retwork 
MmeivVity with equal volling frequency of all circuits. 
Sees ee 6cecrnd: 6«6Ckeylh6UOmKHIDIit)6«6non-concurrert retwork 
Meeivitcy With weiented polling on certain circuits that are 


Permineted at ‘T1. 


fee RESULTS 

Meuse to shows e@ summary of throughput statistics from 
moeeeexkperiment. Certain results are ro doubt obvious, dut 
Miewauantitative nature of output statistics velidates prior 
assumptions. 

The following obervations are notewcerthy; 

Mervebomeme concurrent ectivity on the networx greatly 
Mieseases threugnput. The number of vackets successfully 
meaeismrtted in RUNS 72 and 25 was on the order cf four tires 


memser then the non-current runs. This question cf 
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Pen OWcwron se eNUMBZR OF PACKETS 











EIGH LOAD 
PUN22 PUN22 PUN 24 
1 S2 16 25 
T2 62 ie ie 
T3 27 12 is 
74 Eg 1¢ 17 
$1 E2 mie 1€ 
TOTAL 252 E5 ec 
LOW LOAD 
PUN25 RUN26 RUN27 
wi EG 17 1¢ 
T2 23 17 16 
T3 35 18 16 
T4 So 16 15 
on on a ft 
TOTAL i E5 E2 


Figure 16. 
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Sermeurrency has significant implications to radio %rcoad- 
Meee sy>ters. For instance, what would be the advantages 
Sepeeea 2h the Pecket Radio Network if terminal radic Our ouUt 
Meee w=. => reduced so that the terminal could cnly tél¥ te 
Meemeeecer=st réighbor rather than the entire retwork? This 
situation could allow sirultanecus transmission of pactets 
Seeeeomt the threat of collision. Also, a multislexine scheme 
mapodit the network could allow concurrent activity. These 
types of considerations could be modeled easily with the 
eponcprieate Focifications to the Petri-Net gravh. 

mmpeeeweaesine the frequency of pollire on selected 
MeeeditsS increases the throughout of those circuits. The 
Meer S20uid note the number of packets received at 71 in 
Mememeeco, 922, 26, ard 27. RUNS 24 and 27 show a slignt 
Meeecocmoecause certain circuits destined for terminal fT1 
meeepoeb-asmore frequently. this situation could casily 
reflect the assignmert of more time slots to certain 
meiority Supscripers in a TOMA scheme. Again this 
meat ication was performed simply by restructurire the input 
meee to the Petri-Net simulator. 

Soee@erceader will note that the totel tnroushput ir tae 
Maimeomeaitrent Pumas is largely tne same regerdless of the 


meses toed -— low loed factor. This is decetuse the syster is 


ny 


basically ‘satureted” during non-concurrent activity at toth 
meawwecencmilow loading. Althoush the user mieht cesire te 
improve throughput by generating more rességes ard tryine to 


momees them into the system, the network will give the sare 
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Meomlts because it is already operating at full capecity. 
Pee oud! inspecticn of the outout as PIN2Z =exeeutes 


? 


reyeals thet tre svstemrm 15 


iD 


sserntlielly operetin2 et cer 


ty 


meeemcd=encv Under meximum load. The viewer will roeticese that 
Memotrrers at every location are frequently fillec to 


Cepacity out seldom ere overflowing. 
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en eC MCON TATIONS AND CCNHCLUSIONS 


Pee ECOMMENTDATIONS 
Mmmemmotedtiel exists for siznificernt follow-on wor to 


Memes SisS. Major topics for future were includ 


{D 


Or 


following: 


3 


Beene developmert of a language to descrite retworks, 


t 


and the inclusion in tne software of a front-erd vrograr 
meet would make the input file less cumbersom2]. The pregram 
moma 0€ Stetic, like a corniler, or interactive, writter to 
Mery tre user about a number of basic network parameters. 
Memeinstanc®: How mary nodes do you desire in the network? 
Mmeameeere the paths of traffic from source to destination? Po 
mole Wish tO allow concurrent or non—current activity? The 
software would take tne user respenses to such peéeramreters 
Peccmcrriet the input file from the respcnses. 

2. A statistics gathering package should be written to 
momvects erd Collate vitel xretwork paremeters as the 
Sirulator is executed. Such a package would keep e running 
moral Of suck items 4s: 


peovete2e number of packets at a node 


b. averasce number of packets on a circuit 
fpevemeert use of a cirtult 
d. average time i@lay between trensmissicn and recestion 


@long each fixed route 


e. number of messages lost 


Ot 





f= rurber of messazes 4a en SUCCESSr ally reach 
m=stinaticn. 

Meee scdtictics could be formetted and disvlaved by e 
meer -ODrocessor. 

eemeeomorevyilously descrived, the addition cf rarnrdcmness 
momene Siffuletor might be considered desirable, and , if so, 
tne proper modifications could be added. 

4, As the system approaches “production status , the 
entire auestion cf model validation needs to be addressed 
Memeeruliliy. Much could ard indeed has been written or the 
mmemect, Of NOW to demonstrate your simulation is accurate. 
fig] As in most simulations there is a tradeoff between the 
degree of corplexity represented in the rodlel versus the 
largeneéss of the network. If a network is small or 1 only a 
srall se2zrent of the network is modeled, the dezree of 
cetail can be great. If the netwerk is verv large, hewsever, 
the date storage capability mizht rot allow tne sare level 
of detail. 

Himehe were two constraints to validation posec ir this 
mere. First, the memory cavacity cf the PIP-11/7¢ was 
memereneac ta the limit on the larger runs. The miri-corputer 


r 


Oe 
‘Dp 


offers 12£,232¢@ bytes of memory which Dart vuCned lato 


CD 


Mmmenes. his fives ary one user 128/35 or 42.6 4 bytes of 


f2. 


‘D 


aay 


Ae Trey. exc 


(D 


memory. The granhics programs avproaach 


(D 


this bound vbefore the work was completed. This forced th 
Meio lon Of One® program into twe separate opregrams cf s&s 


meee efile sizes for the outovut files from the Petri-Net 





Simulator are also very large. The larger cf the Maes £1) es 
o 


e 
meoauced oOutout files on the order of 3A@% bytes. Figure 17. 


(D 


Shows the relaticnship between number of nodes in tas 
meeeri=wet versus the size of the outout files. In order toe 
Mees Claims of simulation accuracy »ased on real werl4d 
networks, more memory is needed, 

Mmmouould be added et this point that Jlizitatior of 
Memory cevsed charges in the eraphics display programs ana 
Moet ne Overall orgarization of the software. The votential 
memovoe! 2 the actual Cetri-Net simulator (written in fortran 
and discussed in Appendix A) for the execution of Petri-Nets 
of well over a thousend tlaces. If the user does not recuire 
fee oe ros «6©6COUtTput)6from this softwere veckeze, then larger 
PerwOrsts Can ve simvuleted on the PIP 11/72. 

Seconwty, the networks that were of rost ixnterest to the 
authers are largely experimental, unproven technologies. Tne 
meepocim 1) retwork is rot yet operetionel ard no stetistics 
meemecvetlanple for valigation purposes. The JTITS technology 
is likewise not established operetionelly end reny of tae 
Mae oeeenaract©ristics are classified. Pacxst redio, which 
Mimesomeosfccd deal af dacksrounc for the siruiletion, is 
See eeeeinme its infancy. Alse, pacxet radic erploys a rerdonm 
mmommeleaccess Scheme whico is contrery to the deterrinistic 
Mature ef the Petri-Net simulator. 

Because these are new technologies, new routine and flow 


Rewer roine sot OrGece ol) 
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Ceromedleorithrs erd 42 host of aiff 


meemomesecrtly being developed. It is difficult to rocel a 
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meme 6|6altl h6hhheaS )6Me@t)| 6Creached its production state. Peth 


(D 


r 


ther being concerned abeut modeling a vartictlar retwo 


| 


? 


Meets Still in a ovprocess of charze and then trying to 
me ve t>> Simulaticn valid, it ssemed wiser te leeve the 
Mees) in a more général state. 3v erecuting e variety of 
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Simwuletions eemenstretoe te 


measibility of future valideatior. 


Bee CONCLUSIONS 


ra 


Bomeereltsions of tne authors ere fourfold: 
He herst, SoOrovuUTer COMNTUNVeatlon- Wetwores “cer se 


meaningfsll modeled with the use cf Petri-Nets. ae 


Sy 


Meekerounc research to this thesis discovered no previous 
feeeownien emplceys Petri-nets in the manner described ir 
maa5 Daver. 

ae secondly, Petri-Net models of networks can  0de 
Meee Lec ara disolayed effectively on a color erarhics 
terminal. The results of such a sirulation are more easily 
Becaerstood than the common, hard-copy outputs produced by 
mete amtelytical or aweuirzg theory simulations. 
Peeeonics OUtput also could have consideravle educational 
value. Again, background research uncovered ro instance ir 
foe Fetri-Hets were displayed and execute? cn a ccler 
pec enics terminal. 

= eras. and pernans most imvortantly, the 
mooemertetion of such e modeling techniaue ina production 
mmeeaOmimont. as a scredictcr cf system performerce eppears 


feesible. 


EZ 





4. Fourthly, there avpears to be consideradle benefits 


mmmpencouraging future, carry-on work in tne subject matter 


of this thesis. 


NH MS PI tte tx 


MEGATIONSEIP BETWEEN NODES AND FILE SIZE 
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NUMBTR OF PETRI-NET NODFS IN THE INPUT FILE 


Figure i772 
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Ieee a CNSeRORe2Ea PEoRI vet SoepwAe® 


meee L VEROPUCTICN 

Mmmcmerenenpter iis written to describe certain orecedrres 
meesyntaty peculiar to the simulation seftwere. Assumirg 
mrt an iirterested student or faculty member is somewnat 
mipeltar with the theory and structure of Petri-Nets, the 


Meesructions in this section will allow him to apply the 


©) 


Becton and eraphics output to his particular mroceling 


m@eobler. 
Muertos Shows the various components cr ths antirs 
Sortware packegse, the program source code sizes, the 


progremming langueg?, ard the output files. The reader 
should refer to this figure as he reeds the instructions in 


meis epvendiz. 


fe |e INPUT 


ta4 


IL? 

Peer put file written by the user eentains all of tre 
Mmeromijation necessary to miguel y uc@eschive. tic Petrie fer 
model. This file is read ty the fortran f4p program named, 


wtierietor . Zhe input file must be named RUNYX, where &k 


DP 
(D 
(D 


Can be any number from @1 throvgeh QO. There are tn main 


meavisiors of the file, 


Part 1 Pleces 
Part il jean si tions 
fame Lil Marking 





SOFTWARE METROTOLOGY 
“nnpreemeenepriin is 


SVU AOR 


“f40° 14K 





UNPORMATTED FILES PCRMAL TED aii. 


Seana rt tah eee © ecole 





TPANSGRA PH LINKGRAPE 


“Cc” ZRBK 
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Peereemax 8B. snows @€ Sample inout file. THe reader show] 
Mmere> to this eramnie as he reads the Poul OuTee 
maotructions. 


ie 


‘UJ 


1aces 


i 3 


memeeerot PinS of the file snecifies the total 
numoer of vlaces to be reed in. Ferzinning on line numder 
Ineo, the nemées ard locations of the vlaces are listec. The 


following forrat arplies: 


Seeteeceunem= .... X-cordinete .... Y-cordinate .... Plot 


be] 
}-—J 
Q» 
DS) 


moemolace tame must be Less then 1a cheracters lena. 


b 


eee tne first two charecteérs will be displayed es a label 
Saeeene Ebeohics terminal. There are unique instructicns for 
meceling places in the multi-routinge versior. These will de 
mrscusse? later. 

leet irst letter of the name specifies the tyne of 
mmeure tie? will be disvlayed. The letter, 7 , idertifies a 
“terminal and will a0tearm ese civcle of the outont sereer. 


ve 


Meee letter S identifies a statiecn and will appear as a 
rectangle on the screen. The letter “28 idertifies a 
“reveeter and will be displayed as a truncated triangle. 
Input and cutput queves can be represented by plecing an I. 
or "O as the *irst character of tae place rave. These noises 
Seewdisplayed «eS Small rectenf@les. large ernovueh to corntein ea 
Biommoletpeerunoer. NaresS Mey begin with letters otner then 
meses toad ebove. They will not, however, be displayed to 


bee Screen. 


a4 





Peeer Ns tGe ham 15 listed, on the same lime. the 


screen location of tne vlace is § 


ey 


Sci tved 37 Peas. Cnta thn x, 
mec oOriinate syster. The x and y values are in the range of 
Beart, with the (4,7) point located et the ton, left-hend 
monmnmer Of the grapnics display unit. 

The third item of informetion in the vlarces line 
Mea olot on/off entry. The user will freauzently have 
meeaees identified in the Petri-Net which ére necessary 
Semero!l elements, out which do not need to be disvlayei on 


ee 


ieee OUtDUL. A value cf rt Will cause the plage teise 


e ee 


Beemer yed with its lebel. A value of @ is used for listing 


} +e 


Meeeeseweece are not displayed to the cutout screen. 
ee 'rensitions 
After every plece in the Petri-Net is listed (one 


line per vlece), the transitions are listed. As befcre, the 


mecstelin]= specifies the tctal numoer of transitions to be 


Hovich ale the sechoels cUaailvole| are e@ech listed in a 
three-line format as fcllows: 
inaeicit orn Name,..% Coordinate...¥ Coordinate...Plot Flez 
Places into Transition 
Pltaces out of Transition 


Teeapsitions are namec PPRee es followed 37 C2eir =. Y¥ 


t 


ot °F ee o? 


ecemirreaves. end 4a i or 3 to indicate whetner they ere 


mommpe displeyed to the screen. The second line concerns the 





meeut tO the transitior. 
The first field of this line snecifies the tctel 
Mimocter Ot inputs, dnd the follovine numbers irdicate which 


mae es Enter that trensitioy. The numbers, 


il dl 


CN 
mp 
ro 
f 


momen syveancCe, indicate that three vlaces are inputs to this 
measly). On. “he perticular places are identified by their 
meoeeciys lineé-numoer ordering as entered in the list of 
Merete eoue sf this EGxempl]e toe three places are the Eth, 1ith, 
pgeeleeos olac2s entered in the input file. 

iMcmcaimer lyre of —~Ne transition @rtiry concern the 
Baas ror thet transition. The forret 15S identical to 


that of the line above, i.e., the numbers 


mommeatemunet tne transition fires te two outputs, the ére 
Sie tn places listed in part one of the input file. 
ame omc al Marking 

After all tne places and transitions are listed, the 
Boece rmmeinust oe Fiver its initial stete of marxing. The 
moeeelceolecenen, of tokens 15 svecified ty the folloving 
format: 

MARE Line # of Place feo | olgens 
Mises the entry “MAPK 2 1 svnecifies thet at the 


beginning of the simulation, Place 3 (the third entry in the 


list of places) is marked with one token. Séveral places may 


26 





be marked initially, but each markin2 reauires a sevarate 
ine . 


owl i Peoemineetne input file sezins in the first 


moeuma. PO not indent the oeginnirge character of the 


te 


ek 
The fields within each line must be sevarated by one (or 
more) blank svaces. The final line of the invut file is tae 
command "ND. 
ae ewecution 

income one “User completes =the input file he should 
exit fror the edit rode and is now ready to execute the 
orogram simulator by tyvinge “simvlator.out . The vorcgram 
miel ask hir' which incut file ne wishes tec read, eérd the 
user responds by typing  RUNXX (the file he previously 


Created) and a <cr>. 


me «6 


iy 


Pieces LlLES 


The program Sirulator produces six sevarate output 


iD 


files. When RUN@1l is entered into ‘simvlator , files named 


RUN@Z1A, RUNZ1B, RUNZ1X, RUNZ1IY, and RUN@1Z are produced. The 


4 


Prres sutfizxed with 4 through C are formatted files. Files 
Mercueame sare unformatted. Files A and X contain the 
essential data structures that have been read in simulator. 
muetmeeree incu file. Siles ® ard Y contdin the rervrines for 
€acnh place at successive time frames which will avpear on 
Geemmsedtorres |OUtDUt. Files © and Z contair information 
Soveenmiimeewhton links or transitions fire at any particular 


time frare end are used to hizhiight present activity on the 


3 
ea Ge 


Semeemen ime eranhics display oregrams, written in Coys 
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require unformatted input files. The formatted files are 
meeescsen’ for the user to validate that correct inout data 
Mmmeereaching the @raphics program, arc to troubleshoot wher 
locating a problem. Fratrples of these files are conteixre? in 


Peowenaices C throvenh =. 


D. USER OPTIONS 
IimeeunoLce Of Progrems 

After the program simulator has executed the input 
file, the C oregrams read the output files and display the 
Beeto) Or LYe Simuletion to the screen. At this voint the 
user has several ootiorns concernine the method of displey. 

There are two separate programs tne user can 
select-- transaraph and © linkereph . Dy executing 
"“transgravh the viewer will be able to observe the nodes of 
the network together with their associated transiticns. 
Buimicereoh does not display the transitions, but links 
modes tO-n0Cd> in the common way thet communications retworks 
eremmost frequently represented. For simple retworxs cr to 
Sapam tne asic working of Petri-Nets, tne user will 
probably desire to see the transitions. Trarserapk will 
Tiernan wita ess thar 199 places. For mere intricate 
networxs that Contain several and red nlaces and 
transitions, the ‘linknod] vrogram is necessary to avoid 
Someestior or the screen. 

2. User Cuestiors and Responses 
Deapomescecuece. ine Which program tO run, the user is 


Paomeea Series of questions from the CRT. Qvestiorn one asks 


2 





meemiceme tO Select whick jinout file he wishes to exerute. Ye 
mesporas With the command RUN X. For instance, if the inxput 
file named RUNZ1 hes been executed by ‘simulator , and the 
Mserewisnes to see the results, he erters FUN2Z1K in response 
to question one. (Numerous files may de waiting in tne 
users directory wnich can be called in for display.) 

Question 2 asks the user if he warts to view the 
data structures of the program. By entering a “1°, the data 
euvetures will be printed to the CRT. A 2 will move or to 
the rext auestion without viewirg the data structures. 

Cuestion 3 asks tne user which of three versions of 
the program ne wishes to see. Version 1 disnlays the marking 
mee tokens in the conventional Petri-Net fashion, with 
Bamoers printed eat the cé@nter of the places. Yersion 2 
represents tokens by single, yellow boxes printed inside the 
nodes. These boxes are designed to represent “vackets” of 
mf onmation in tne peckeét switcnin2= concept. AS treviously 
described, each node has tne capacity to hold seven packets. 
If the nurber of packets goes over seven, a red overflow 
number avpvears beside the saturated place. 

Tye mao. version is tne i ee 2 Ovens 
Teer oestinatiorm versior. Version € uses color ira unique 
way. Because veckets may be origineting eat different nodes 
and traveling to several destinations, the linking channels 
reauire Magma jeu rans—l5510%.) “Mes 2rPanhics display is 
Somogreoeed so naeilignt this information. Packets traveling 


PomcetarulcUlareplace ar& colored t0 match the label of that 


oo 





place. For irstance, when a esreen box appears in tne 


~ 


network, the viewer Catt race ts OROZress , TO tne 


mesuinaticn whose Jebel! is displayed ir green. In Version 3 


a») 
™ 
ra 
fu 


(multi-routine), a nacket originating at a certein nod 


ty 
(D 
i? 
(D 
3 
ct 


Mesrvined for enothner vartieular rode ray take dif 
Metis to arrive at the destination. 
The user at this point must select one cf the three 
versions by entering a (1, °2', or “3 followed by a “cr>. 
fuestion 4 asks the user to select one of the three 
resco aaeics terminals in the Cé let on which the outout 
memeleescpbeer. Correct entries to tnis auery are 2, 1, 0r 


ef 9 


5 
The fifth question esks the user if he desires a 
time vause of two seconds duration betweer tire frares of 
mee simulation. if he desires the canebility to leok closely 
at each network snapsnot, he enters a 1. If not, he should 
enter a @ and the simulation will run without pauses. This 
zives the viewer more of a real-time impression. 
fee ae ena of this final “question, the screen 
Mmeserayo etme Initiel condition of the network. After noting 
micmmrguete condition, the wWser shneuld type a cerriecs 
Bigpaine CONbinue execution. 
Tf the user has typed a “1 in response to cuestion 
Set omeesomraS the avility to indefinitely suspend erécution 
Cee nOenremedt aly tire freme. He can interrupt the 


program bv typing a ican PROM steer ca. 2Zeyocerd. After 


Studying that particular snepshet of network status, ne may 


SZ 





eempanee normal execution by typine 3 carriage return. 
Bemeisbertupt Goes not work if tne prograr is 


executing without rauses. Tyoing two consecutive “2RE%s 
Pomeemene le the user to exit the programr ertirely. 
3. The “Yighliehting Feature 

The linking algorithm in »oth “‘transgrapk ana 
"linkgraph draws lines in a dark blue COMGE. The 
Meare nting feature ir vdoth onprograms charges the dlue 
eormectin=s lin* color to brizht vyellaw on those links which 
are carrying traffic at any particular time frame, This 
feature verforms in the following sequence. (1} The link 
Meenss wp at the voint where the future action will cccur. 
(2) The packet(s) in auestion moves from one end of the 
highlighted link to the other. (3) The highlight remains on 
the link to emphasize where the action occurred. “he user 
Will notice that direction of movement on the highlighted 


mmreereimdicatead by an arrow pOirtine in the aporepriate 


Mmeeeewnon. see BPigures 19 and 24. 


Perec INSTRUCTICNS FOR VERSION &:; 

ineemonaer fOr the user to implement tne capebilities of 
WeesiOn  ¢, special networxs design information must te 
mami cemerr the jrput file. This peragraph describes these 
Boece aleanstructions. 

imemecmocinen 15 Structured ta  furction in a fixed 
routing manner. Theat. is ao co eet routes oaths are 


predefired by the user. 
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MteTesscen O28 as Pany alternate peths fror source to 
Memtinmeatior as the User wants to include. Put once these 
mmeecmare Se°cified 17 the inou’ file, they do “10t chenze 


memanically during execution. 


The multi-routing feeture is made sossible by “Stacking 
mumerous ovléces on tov cf one another and displaying these 
piggy~backed places at the same coordinates. In this manner 
meer meees appear on the screen as a single place, althcuen 
Mmecealityvy they May ve buried several] deen. 

BS the total network is conceptualized by the user, ne 
mst Yefin by MandDine out all origins, all destirnetions and 
pueeeGetay nodes. very nod@ becomes uricue to a ovarticular 
Beatie fOr instance, a simple case would be to send a packet 
moom '© te T5 (see Figure ea a4) by two different 
mowses---oute 1 goes through Rl end Route 2 eoes throueh Re. 

In this case TS and T5 would be stack2d two deev. The 
routes are TO-P1-TE and T9-P2-T5. 3ecause tney are plotted 
at the same voint, the terminals appear as a single rode. 

The “header information to perform this routing is 
Genmtvemmea in the rneame of the vlece. In Version S$, every node 
tMat Will be displayed to the screen must be assigned a 
seven unit name in the input file. 

emer smrrit Of the name specifies the type of figure 
Tada T , GS see © ee Tee O cas ovreriously 
explained). The second unit specifies the color thet the 
teem!) bempragemead in. This number is derived fror the 


Poarurvelilar ‘color teble {( 16 colors are in a color table ) 
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feet 1S Delirs used by the graphics vorograr. The eclor cf the 
meociuiest Correspone to t22 color of th2 vackets bourd for 
thet routes destination. Units 7% end 4 of the name 
@esienete tne reute number that the node lies uwpon. Route 
mumbers are arbitarily given by the user and utilized for 
his own identification purposes. Urit 5 designates the cclor 
of the packet that will travel along that particular route. 
Every node on that route have the sam@ color designator. The 
Dackwet color of the route is deterrined by the destination 
Memerat Geute. Units 6 and 7 of the name specify how many 
Moces ere stacked ef thet location. Places that are stacked 
musa ve listed together in the invut file. 


An example of this 7 unit name might appear as follows: 


T205419 


Field 1 designates that a circle will be draeawr. 

Wield 2 specifies that the label will be disvlayed in 
color nurber 2 of the program’s color table. 

Fields 3 and 4 show the place on route number GF. 

Field 5 ensures that every packet which vesses throush 
ficomoiace will be displayed in color number ¢. 

uicmmeomand © Specify that places are stacked 1S deep 
Geen is coordinate. 

Pemeetemeptogren executes, the stacking algorithr totals 
ate wede nets) which are locéted at a@ oarticular stacked 
ioecewonecnaGmeamsplays that totel number of boxes in tne 


Sopnonrteate colors. 
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1 2 
255. 5 
3 3 
4} 4 7 
5 2 
65 8 
73 
8237 
9 3 
10 4 § 6 
11 3 
12 17 8 
13 2 
14 3 5 
1S 3 
16 14 7 
17 2 
18 5 8 
19 3 
e0 237 
el 3 
22 4 5 6 
23 3 
2417 8 
25 2 
26 3 5S 
e7 3 
28147 
29 2 
30 5 8 
31 3 : 
32 237 
33 3 
3445 6 
35 5 
36 17 8 
37 2 
38 35 
39 3 
40 147 
412 
425 8 
43 3 
“4235 7 
45 3 
Ub 4 5 6 
a7 3 
ae 17 8 
49 2 7 
$0 3 5 
S13 
S2 147 
$3 2 
S45 8 
5S 3 
56 237 
57 3 
S58 4 5 6 
59 3 
60 17 8 


100 
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61 2 

6e 3 5 
655 

64 14 7 
= 

66 5S 8 
67-3 
SOner oy 
59°35 

70 45 6 
71 3 
7217 8 
73 2 
7435 
oe 5 

76 14 7 
Le 

me 5 28 
a 3 

GU es 7 
S15 

Se 45 6 
83 3 

Sa 17s 
Se 

86 3 5 
87 3 

668 14 7 
Saae . 
90.58 ; 
= 
Weme. S71 
93 3 

94 4 5 6 
95 3 

96 1 7 8 
a7 ae 
99:55 5 
oS 

100 14 7 
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lee 

S301212 
S302212 
$303112 
S304112 
$305012 
$300012 
$307312 
§$308312 
§$315312 
S3i65le 
§$319312 
$320312 
R102205 
R103105 
P110105 
R1149205 
R115305 
R205005 
R208305 
R212905 
R218295 
R220305 
T201216 
T202216 
T204116 
T2060N16 
7207316 
T208316 
T209116 
perolris 
eno 16 
T21l2016 
T2el3sels 
T219216 
T216316 
T217216 
T218216 
7219316 
1103108 
T104308 
7109108 
T110108 
111 s208 
T114208 
T115308 
T116308 
1005008 
TO006008 
TO011008 
T012008 
TUI7208 
T018208 
1019308 
1020308 
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250 
250 
250 
250 
250 
230 
250 
250 
250 
250 
250 


1V0 
100 
100 
100 
100 
400 
400 
400 
ado 
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400d 
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400 
100 
100 
100 
100 
100 
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100 
100 
106 
100 
100 
100 
100 
100 
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100 
100 
200 
200 
200 
200 
200 
200 
290 
200 
200 
200 
300 
390 
300 
300 
300 
300 
300 
300 
300 
300 
300 
300 
300 
300 
300 
300 
400 
400 
400 
400 
400 
400 
400 
400 
400 
400 
400d 
400 
400 
400 
400 
400 
100 
100 
100 
100 
100 
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61 
6e 
63 
64 
65 
66 
67 
68 
69 
70 


199 
110 
ie 
ie 
15 
114 
5 
6 
117 
118 
Pag 
120 


B6 

87 

B8 

b9 

B10 
B11 
Balte 
B1s$ 
B14 
Be1:5 
B16 
By 
B18 
Be 
B20 
Bel 
Bee 
os 
Bed 
seo 
Beo 
B27 
B28 
B29 
630 
B31 
B32 
B55 
B34 
Al 

Ae 

A3 

AY 

AS 

Ao 

A7 

A8 

A9 

A10 
All 
Ale 
A13 
Al4 
A1S 
Al6 
Al7 
A18 
A19 
A20 
Ae) 
A2ee 
Aes 
Aed 
A2S 
A2b 
Ae? 
Ac8& 
A29 
A30 
A31 
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100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
100 
190 
100 
100 
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100 
100 
100 
100 
100 
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500 
500 
500 
500 
500 
500 
500 
500 
500 
5090 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
500 
590 
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121 A32 S00 $00 
122 A33 500 $00 
123 A3a S00 500° 
124 68 
125 TRI 220 200 1 
126 2 1 S6 

127 1 23 

128 TRe 140 140 1 
129 22 58 

130 1 13 

131 TR3 140 260 1 
132 2 13 60 

133 1 24 

134 TR4 100 100 0 
135 2 3 62 

136 1 14 

137 TRS 100 100 0 
138 2 14 64 

139 1 39 

140 TR6 100 100 0 
141 2 4 66 

142 1 25 

143 TR7 100 100 0 
144 2 25 68 

145 1 40 

146 TRB 330 160 1 
Vase 5 70 

148 1 18 

149 TRI 375 320 1 
150 2 18 72 aie 
151 1 47 

152 TR10 100 100 0 
153 26 74 

154 1 26 

155 TR11 100 100 0 
156 2 26 76 

157 1 48 

158 TRie 280 200 1 
159 2 27 78 

160 1 7 : 
161 R13 365 260 1 
162 2 28 80 

163 1 19 

164 [R14 100 100 0 
165 2 19 82 

166 1 8 

167 TR15 175 400 1 
168 2 29 84 

169 1 41 

170 TR16 170 230 i 
ly ieee 50 86 

172 1 15 

1750 R17 50 300 1 
174 2 15 88 

175 1 4 

176 TR18 450 300 1 
177 2 54 92 

178 1 2e 

179 TR19 360 140 1 
180 2 22 90 
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eS) 
1Se2 
183 
184 
185 
186 
187 
138 
189 
190’ 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
202 
206 
207 
208 
209 
210 
211 
ele 
213 
214 
els 
216 
217 
216 
ale 
220 
Cal 
eee 
223 
224 
ees 
226 
227 
228 
eer 
230 
231 
eae 
233 
234 
255 
236 
237 
238 
239 
240 


1 ie 
TR20 
2.55 
1 38 
TR21 
2 38 
Pet 
TRee 
e Se 
1 21 
TR23 
2 dl 
1 37 
TRY 
e 51 
1 36 
TR25S 
2 46 
1 35 
TR2o 
2 358 
1 10 
TRe7 
eas 
1 17 
TR28 
217 
1 9 

TR29 
e 44 
1 16 
FR30 
2 16 
1 34 
TR31 
2 43 
1 33 
TR32 
2 32 
1 20 
TR33 
e 20 
1 50 
TR34 
e 31 
1 49 
TR35 
155 
2 s7 
TR36 
1°57 
2 59 
TR37 
1759 
2 60 
TR38 
1 61 
2 63 
TR39 
1 63 


Pacse 4 
100 
96 


100 
94 


100 
100 


330 
98 


325 
102 


100 
106 


100 
104 


100 
108 


170 
110 


190 
ie 


100 
114 


180 
116 


100 
120 


190 
rie 


300 
22 


100 


56 
100 


58 
100 


61 
100 


62 
100 


ert 


100 0 


100 0 


100 0 


230° 1 


S55, | 


550 1 


160 1 


310 1 


100 0 


400 ! 


100 0 


100 0 


100 0 
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24) 
242 
243 
244 
24s 
246 
247 
248 
249 
250 
251 
exe 
253 
254 
255 
256 
257 
258 
259 
260 
261 
2b6e 
263 
264 
265 
266 
267 
258 
269 
270 
e71 
e7e 
273 
274 
275 
276 
e77 
278 
279 
280 
281 
282 
283 
e@4 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 


2 65 64 
TRO 100 
1 65 

2 67 66 
TR4] 100 
1 67 

2 69 68 
TRU2 100 
1 69 

2 71 70 
TR&3 100 
171 

2 73 72 
TR44 100 
1 73 

e 75 74 
TRUS 100 
75 

2 77 76 
TRGo 100 
1 77 

e 79 78 
TRU7 100 
1 79 

e 81 80 
TRUB 100 
1 81 

2 83 82 
TR&O 100 
1 83 

e 85 84 
TRSO 100 
1 85 

2 87 86 
TRS1 100 
1 87 

e 89 88 
TRS2 100 
1 89 

2 91 9e 
TRS3 109 
191 

e 93 90 
TRSG 100 
1 93 

e295 96 
TRSS 100 
195 

e 97 94 
TRS6 100 
1 97 

2 99 100 
TRS7 100 
199 

e 1901 98 
TRS8 100 
1 101 

e 103 102 
TRSI 100 
1 103 


Pea 


100 90 


100 0 


100 9 


100 0 


100 90 


HOO e 6 


LOUTO 


100 0 


100 0 


100 0 


100 9 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
31ie 
313 
314 
315 
316 
317 
318 
319 
320 
32) 
322 
323 
324 
325 
326 
327 
328 


e 105 
TROG 
1 105 
e 107 
TRol 
1 107 
2 109 
TRE2 
1 109 
e ili 
TRO63 
1 11 
eet} 
TRO64 
se 
e115 
TR6S 
LenlehS 
Copel 7 
TR66 
1 117 
e 11s 
TRo7 
Pits 
evict 
TRO8 
Ltet 
a 52> 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
MARK 
END 
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120 
100 
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100 
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aa DIRECTORY 
transgrapoh 
transgraoh 
transaraoh 
linkgrapoh 
rransgraoh 
linkgqraoh 
transaraoh 
transaraon 
transaqraoh 
transoraon 
transaraoh 
transaraoh 
linkgrapoh 
transgraoh 
linkqraoh 
link/transaqraph 
linkaraoh 
linxaraoh 
linkarapoh 
hinggraoh 
linkqraoh 
lin<qraoh 
simulator.out 
aavisors 

end 
exoeriment 
intro 

linear 
linkaraoh 
AOS 

ourline 
sirmulator.out 
ritle 
transaqraoh 
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1000 
1002 


2007 
2000 


2001 


2006 
2002 


2004 


Bace ss) Fri Feb 8 07:10:27 1980 
FROGRAM SIMULATOR 


CRIGINAL VEFSIGN OF THIS PROGRAM (PROGRAM TESTNT) WRITTEN BY L.A.COXO 
POCTEIER? 10 OPERATE ON UNIX (PDP 11/70) RY S.C.JENNINGS & R.J.HARTELG 
PPGGRAM SIMULATOR READS USER INPUT FILE AND PPOQOUCES 6 QUTPUT FILES 


MAINLINE 


CELL INIT 

CALL INPUT] 

CALL DUMPPP 

cote “OVENET( 150) 

CALL EXIT 

END : 


SUBROUTINE INIT 


Pee eerice USEP INPUT FILE & CREATES 6 OUTPUT FILES 


FMAM] STOPES THE [THPUT FILE enn nnnn nn nnn nnn ---n- weer e- RUN... : 
FNAM2 STOPES THE FORMATTED INPUT DATA STRUCTURES ----- RUN. A 
FNOM3 STORES THE FORMATTED TTERATIONS GF THE NETWORK = RUN..B 
FNA"4 STOPES THE FOPMATTED LINKS OF THE NETWORK ----e RUN. 
FNAYS STOFES THE UNFOCRSMATTED GRAPHICS INPUT eenrneennne PUN. .X 


FNEM6 STCGRES THE UhFORPMATTED GRAPHICS ITERATIONS ewrernre PUN,.Y 
FNAM7 STOPES THE UNFORYVATTED GRAPHICS STATES eernrnn-- RUN. .2 


Brie FNAM] 
BYTE FNAM2 : 
BYTE FNAM3 
EYTE FNAMYG 
BYTE FNAMS 
Ere FNAM6 
BYTE FNAM7 


COMMOAN/SUSRFEFILE/SEFNAMI (6),FNAM2(7),FNAM3(7),FNAMU(7),FIAMS(7),FNAM6(7) 0 
FNAM7(7) 
COMMON/SEVERT/IEVENT(G00,6),NXTEVT 
COMMON/STPANS/ITRANS(400,7),NXTTRN,IINTR,IISTORE (100) 
BYTE NAMES 
COMMON/NAME/MNAMES (8000),NXTNAM 
COMMOM/STIOTAB/SIOTARL(4000),NXTTRE 
FORMAT(C' INITISLIZING PROGRAM' ) 
i PEs 1000 
FORMAT(' BEGIN TEST-GRAPH-NET') 
TYPE 1002 
TYPE 2900 
FORMAT (' weeoe> [TNPUT FILE? NAME MUST BE ENTERED AS: RUNO1] = RUNSG 
ACCEPT 2001, FNAMI 
FORMAT (6A1) 
FNAMI(6) = 0 
OPEN (UNIT = 1, NAME s FNAMI, TYPE = 'OLD', ERR = 2006) 
GC TO 2004 
TYPE 2002, FNAMI © 
FOPMAT (' ERROP OPENING FILE ',X6A1) 


= 1, 95 


I 
FMAMO(IT) = FNAMICI) 
FNAM3(IT) = FNAMI(I) 


We One, 
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FNAMG(JT) = FNAM)(T) 
FRAMS(1) = FNAMI (1) 

FNRAMoO(T) = FNAMICT) 

FNAM7°(T) = FNAMI(T) 

CONTINUE 

FNAMS (6) = at 

FNA‘MOC(7) = 0 

PNeMSC6) = 8 * 

FNAM3(7) = Q 

FNAMa(6) = 'C! 

FNAMQG(7) = Q ‘ 
FNAMS(6) = 'X! 

FMAMNS (7) = Q 

FNAM6(6) = *Y! 

FN44%6(7) = QO 

FMAM7(6) = *'?2?! 

FNAM7(7) = O 

NXTEVT=]1 

NXTTRN=] 

NXTMAM=s] 

NXTTRE=} e 
FURMAT(* INITIALIZATION COMPLETE') 

TYPE 3000 

RETURN 

END 


SUBROUTINE DUMPPP 


OPENS FNAM2 & FNAMY i 


BYTE FNAM] 
BYTE FNAMOQ 
BYTE FNAM3 
BYTE FNAMG 
BYTE FNAMS 
BvTe FNAM6 
BYTE FINA7 
COMMON/USRFILE/FNA1 (6) ,FNEM2(7),FNAM3(7),-FNAMG(7),FNAMS (7), FNAM6(7)! 
FNAM7(7) 


COMMON/EVERT/IFVENT(400,6),NXTEVT 
COMMGR/STRANS/ITFPANS(C400,7),NXTTRN,TINTR,ITISTORE (100) 
COMMON/STIOTAB/SIOTARL (4000) »~NXTTRE 

BYTE NAMES 

COMMON/NAME JNAMES (4000) ,NXTNAM 
CPENCUNITS1,wAYVESFNAM?, TYPES'"NEW!, INITIALSIZE=40000) 
FORMAT(*® WNXTEVT=s',I14) 

FOPM“AT(5x%,6] 8) 

WRITEC1,1000) NXTEVT 

DO 1500 [=1,NXTEVT-1 

FRiteCi, 1/001) (CIEVENT(I,J),J=1,6) 

FORMAT(/,' NXTTRN=',I]4) 

FOPMAT(1xX,718) 

wFITE (142090) NXTTRN 

DO 2500 I21,NXTIRN@} 

WVWRITE(C1,2001) CITRANSCI,J),J=1,7) 

CONTINUE 


FORMAT(/,* JOTABLE:*,/,60C10I4,/)) 


WRITE (1,3090) (IOT46L(T),1TS1,-NXTTRE) 
FORMAT(/," NAMES? NXTNAM=!,14) 


110 
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121 4001 FORMAT(X,10041) 


122 BWPITE (11,4000) NxTNAM 

123 WPITE(1,4001) (NAMES(I),I=1,NXTNAM) 
124 S000 FOR™AT(1H1) 

125 WRITE(1,5000) 

126 GEISEG@UNG T=1,01SP0SE=*SAVE"') 

127 

128 OPEN(UNIT=S1,NAMESFNAMS, TYPES*NEW,INITIALSIZE=14000, 
129 1 FORMS*UNFORMATTED' ) 

130 WRITE(1) (NXTEVT) 

131 DN $001 Isl1,NxTEvTe-] 

beeen 5001 WRITECI) (CIEVENTCI,J),-J=1,6) 

133 WRITEC1) (NXTTRN) 

134 DO S902 Isl, NXTTRN@-1 

135 S002 wRITEC(1) (ITRANS(!,J3),J=1,7) y 
130 WRITE(1) (NXTTRE) 

137 WRITE(1) (CJOTABL(I)-I=1,NXTTRE) 

138 WRITE C1) (NXTNAM) 

139 MRITEC1) (NAMES(I),I1S51,NXTNAM) 

140 Close Guilt T=),CISFPUSE='SAVE*) 

a RETURN 

142 END 

143 

144 

145 SUBROUTINE INPUTI 

146 

147 COAMON/SSCAN/I40R0(15,10),NUMBER 

148 8000 FORMAT(' JNeP Ul KEGINS') 

149 8001 FORMAT (' INPUT COMPLETE') 

150 rYPE 8000 

151 1=9 

152 CALL SCANR 

153 CAI INTC (1,1) 

154 DO 1090 J=1,I 

iss CALL INPUTE 

1S6 1000 CONTINUE 

157 

158 CALL INPUTT 

159 

160 2000 CONTINUE 

lol CALL SCANR 

162 TPC 4A 1CHS(1,°ENO’,3).E9.1) GO TO 3000 
163 IFC4ATCHS(1,'*ARK',4).E0.1) CALL MARKER 
164 GO TO 2000 

165 

166 3000 TYPE 38001 

167 CLOSE (UNIT=1,DISPOSE='SAVE') 

168 RETURN 

169 END 

170 

7A 

172 SUBROUTINE INPUTE 

173 

174 COMMON/EVENT/IEVENT (400,6) ,NXTEVT 
175 BYTE IwORD 

176 COMMON/SCAN/I WOPO(15,10),NUMB 

172 120 

17 5c READ A SINGLE EVENT LINE FROM INPUT AND 
L797E STURE IT APPROPRIATELY 

180 CALL SCANR 


lil 
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i CALL STONAM(1,TEVENTC(NXTEVT,1)-IEVENT(NXTEVT,6)) 
18 

183 90 1900 I=2,4 

134 CALL XINTGR(I,J) 

185 1000 TEVENTCNXTEVT,I +1) 2J 

186 

187 NXTEVT=ENXTEVT #1 

188 IF(NXTEVT.GT.409) GO TO 9000 

189 RETURN 


190 9000 TYPE 9900 
191 9900 FORMAT(® EVENT/PLACE TABLF OVERFLOW') 
192 CALL UEXIT 


193 RETURN 

194 ENDO 

195 

196 

197 SUBROUTINE INPUTT 

198 

199 COMMONS TRANS/ITRANS(400,7),NXTTIRN,IINTR, LISTORE (100) 
200 BYTE IVORO . 

201 COMMON/SCAN/TNORO(15,10),NUMB 

202 

203 I=0 

204 K=0 

205 CALL SCANR 

206 C4LL XINTGRCO1,1) 

207 

208 00 1000 J=1,I 

209 CALL SCANR 

210 CALL STONELM(1,ITTRANSCNXTTRN,1),ITRANS(NXTTRN,7)) 
ell 

212 DO 2009 L=1,3 

213 LL=L+3 

214 CALL XINTGR(L4¢1,K) 

215 2000 ITRANS(NXTTPN,LL)=K 

216 

217 CALL SCANR 

218 CALL STUIOTCNUMB,ITRANS(NXTTRN,2)) 
219 CALL SCANR 

220 CALL STOTOTOCNUMS, ITRANS(NXTTRN,3)) 
221 NXT TRNENXTTRNG1 

222 IF CNXATTRN.GT.400) GO TO 9000 

225 1000 CONTINUE 

224 

225 RETURN 

226 


221 7000 TYPE 97900 
228 9900 FORMAT(' TRANSITION TABLE OVERFLOWS) 


229 Gabt EXIT 

230 RETURN 

231 END 

232 

233 

234 SUBROUTINE STONAMCNWORD,NPOINT,KOUNT ) 

235s 

236 C STORE STRING ‘NWORD' FROM SCANNER INTO 
e237 C NAME TARLE AND RETURN A POINTER 'NPOINT' 
238 

239 BYTE ITWORD,NAMES, SL ANK 

240 COMMON/SSCAN/I VNR O(15,10),NUMB 


EZ 
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24} COMMONSMNAME /NAMES (4009) -NXTNAM: 

242 DATA BLANK/IH / 

243 O09 1000 1=1,10 

244 KOUNTs] =} 

24s TFC IwORO(NWOPD,I).EQ.8LANK) GO TO 2000 


246 1000 CONTINUE 
247 2000 CONTINUE 


248 

249 TF CNXTNAM4KGUNT .GT.4000) GU TO 9000 
250 

251 CO 3000 T=1,KOUNT 


252 3000 NAMESC(NXTINAM+1 ©1 )=ITWORDOCNAORD, I) 
eo 


254 NPOINTSNXTNAM 

255 NXTNAMSNXTNAM+KOUNT 
256 RETURN 

257 


258 9000 TYPE 9900 
259 9900 FORMAT(' NAME TABLE OVERFLOW’) 


260 CALE EX] T 

261 RETURN 

2be END 

263 

264 

265 SUBROUTINE STQIOTCNUMBES,LINK) 
266 

267 COMMON/TOTAB/SIOQTABL (4000) ,NXTTRE 
268 

269 C STORE IUPUTS 4ND OUTPUTS OF TRANSITIONS 
270 C IN THE TABLE, RETURN THE LINK 
e71 

27e IFCNXTTRE+NUMBER .GT. 4000) GO TO 9000 
273 

e7T4 K=0 

275 DO 1000 I=1,NUMBER 

276 Gate GINTGRCL pK) 

e77 JZ>QONXTI RE O11) 47 

278 1000 JOTABL(J)=K 

279 

280 LINKSNXTTRE ‘ 

281 NXTTRESNXTTRE+NUMBER 

282 RETURN 

283 


2eA4 9000 TYPE 99090 
2285 9900 FORM“AT(' I0 TABLE OVERFLOW (TRANSITIONS) ') 
286 CALL EXIT 


237 RETURN 

288 END 

289 

290 

e291 SUBROUTINE MARKER 

292 

293 COMMON/EVENT/IEVENT(400,6) -NXTEVT 
294 1=0 

295 J=0 

296 CALL XINTGR(2,1!) 

297 CALL XYINTGR(3,J) 

298 feclcet.i .OR. [L.GIT.NXTEVI) RETURN 
299 TEVENTCI,2)=J 

300 RETURN 


iS 
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301 ENO 

302 

303 

304 

305 SUBROUTINE MOVENETC(NTIMES) 

306 

307 C€ EXECUTE THE PETRI|=NET °NTIMES' OR STEPS 

308 

309 COMMO"ISTRANS/SITRANS(400,7),NXTTRN,LINTR,LISTORE (100) 
310 COMMON/SEVENT/SIEVENT(400,6),NATEVT 

311 BYTE FNAM] 

312 BYTE FNAMO 

313 BYTE FNAM3 

314 BYTE FNAMQ 

315 BYTE FNAMS - 
316 Bate © FNAMG 

317 BYTE FNAM7 

318 COMMON/SUSRFTILE/SFNAMI(6),FNAM2(7),FNAM3(7),FiNAMGO(7),FNAMS(7),FNAAG(7)! 
319 1 FNAM7(7) 

320 DATA ITIME/1I/ 

321 e 
Bee 1000 FORMAT(' EXECUTING TIMES',I4) 

323 

324 OPEN(CUNITS1,%AMESFNAMS, TYPES'NFw!t,INITIALSIZE=120000) 
325 QPENCUNITSEO-NAVESFRAM6, TYPES'NEW',FORMS'UNFORMATTED’, 
326 1 INITIALSIZE53200009) 

327 OPENC(UNITS3,NAMESFIAMG, TYPES*NEw', INITIALSIZE=12000) 
328 OPENCUNITTSU,NAMESFNAM7, TYSES*NEW',FORMS'UNFORMATTED', 
329 1 INITTIALSIZE=12000) 

330 

331 

332 00 2000 IS1,NTIMES 

333 TYPE 1000,ITIME 

334 LINTR=O0 

335 CALL MOVE 

336 106 FOR“AT( 3512) ° 

337 tRITE(1,106) CIEVENT(J,2),JS1,NXTEVT-1) 

338 WRITE C]) (CIEVENT(J-2)-Je)-NXTEVT-1) 

339 107 FORMAT(I3) 

340 WELTE(3,107} JINTR 

34} 198 FORMAT(10013) 

342 WRITE (3,108) (TISTORE(J), Jel,LINTR) 

343 WRITE(4) JTINTR 

344 ARITE(4) CIISTORE(J),-J=1,1INTR) 

345 

346 ITI“ESITIME +1 

347 2000 CONTINUE 

348 

349 CeG@SeGui.ITsu,D0ISPOSES* SAVE) 

350 CGSB cunIT=3,DISPGSE='SAVE*) 

351 CLOSE(UNITs2,0IFSFOSE='SAVE') 

352 CLOSECUNTIT=1,0I1SPOSE='SAVE*) 

353 

354 RETURN 

355 ENO 

356 

357 

358 SUBROUTINE MOVE 

359 

360 C EXECUTE THE NET ONE STEP 


ie 
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361 

362 COMMON/STRANS/ITRANS(400,7),NXTTRN,ITINTR,LISTORE(100) 
363 DIMENSION ¥ARKS(400) 

364 ITEST=0 

365 

366 C CHECK ALL TRANSITIONS TO SEE WHICH ARE ENABLED 

367 DO 05900 Ist, NXTIRNel 

3608 0500 M4RKS(T)=NARLEDC(T) 

369 DO 1000 I=1,NXTTRNA-1 

370 IF (MARKS(1).E0.0) GO TO 1000 

371 0600 FORMAT(' DYNAMIC CONFLICT, TR#2z',14) 

372 

373 IF(NASLED(I).EQ@.1) GO TO 0800 

374 TYPE 0600,I 

375 GO TO 1000 - 
376 0800 CONTINUE 

377 CALL UNMARK(I,ITEST) | 

378 faACepeoi.ea.)) GO TO 1000 

379 LINTREIINTR#} 

380 TISTOPECIINIR) ZI 

381 CALL MARKEM(I) 

3A2 1000 CONTINUE 

333 

384 RETURN 

385 END 

386 

387 

3388 FUNCTION ‘NABLED (NUMBER) 

389 

390 C RETURN 1! IF TRANSITION # ‘NUMBER’ IS ENABLED, READY 
391 C TO FIRE. ELSE RETURN 0, 

392 

393 COMMONS TRANS/ITRANS(400,7),NXTTRN 

394 COMMOW/SEVETT/ZIEVENT (400,6),NXTEVT 

395 COMAON/SIOTAS/STOTABL (4000) ,NXTTRE 

396 

397 C CHECK LIST OF INPUTS TO SEE IF ALL ARE MARKED 

398 

399 MARK =Q / 
400 IPTZITRANS (NUMBER, 2) 

40} KOUNTZIOTASLCIPT) y 
402 / 

403 DO 1900 [=I]°T+1,1IPT+KOUNT yf 

40a NEVENTSIOTARL (I) , 

4os IF CIEVENTCNEVENT,2).GT.0) MARK=MARK +41 

406 1000 CONTINUE 

407 

408 NABLED=0 

409 IF (KOUNT.EQ.MARK) NABLED=1 

410 RETURN 

41} END 

412 

413 

414 SUBROUTINE UNMARK (NUMSER, TERROR) 

415 C 

Wien UNMARK (TE. DECREMENT THE NUMBER OF TOKENS 
417 C¢ ALL OF THE INPUT EVENTS TOG TRANSITION # ‘NUMBER’. 
aia C PEIURN TEPROR=SO .....-UNEESS....-1 

419 Cc ONE EVENT IS A MULTIPLE INPUT OF THE SAME 
420 € TRANSITION AND WE DONT HAVE ENOUGH MARKERS, 


LES 
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421 C NRPEN THIS HAPPENS, REPLACE ANY REMOVED 
Gee C TOKENS AND RETURN IERROR=1, 

G23 C 

G24 COMMON/JEVENT/SIEVENT(400,6),NXTEVT 

425 COMMONS TRANS/ITRANS(4900,7),NXTTRN 

426 COMMON/STOTAB/IOTASL(4000),,NXTTRE 

4eT7 

428 TPTSITRANS (NUMBER, 2) 

429 KOUNTSIOTABLCIPT) 

430 IERROR=0 

431 : 

S32 CC 1009 T=[PT+t1,IPFT+KOUNT 

433 NEVENT=IOTABL(CI) 

434 J=!I _ 
435 TEVENTCWEVENT,2)SIEVENTC(NEVENT,2) 1 

436 IFCIEVENTC(NEVENT,2).L7.0) GO TO 2000 

437 1000 CONTINUE 

438 RETURN 

439 

440 2900 CONTINUE 

44} DD 3000 T=I[PTe1,J 

442 NEVENTSTOTABL (TI) 

O43 3000 JTEVENTCNEVENT,2) STIEVENTCNEVENT,2) #1 

G44 TERROR? ] 

4aas 

G46 RETURN 

447 END 

448 

4ugy 

450 SUBROUTINE MARKEM(NUMBER) 

451 C 

4S2 C MARK ALL QUTPUT EVENTS OF TRANSITION # ‘NUMBER? 
q535°.¢ 

454 COMYONSEVENTSIEVE WT(400,6) ,NXTEVT 

455 COMMON STRANS/SITRANS(4090,7),NXTTRN 

4S6 COMMON/SIOTAS/ITOTABL(4000),NXTTRE 

457 

458 IPTHSITRANS (NUMBER, 3) 

459 KOUNTESTOTASL (IPT) 

460 09 10900 [sJRPTe¢1,1FPT+KOUNT 

461 MEVENTSIOTABL (YI) 

“Ube 1000 TEVENTCYEVENT,2)SIEVENTC(NEVENT, 2) +1 

463 RETURN 

464 END 

465 

466 SUBROUTINE SCANR 

467 

468 BYTE ITAORD,ISC,] BLANK 

469 COMMONZSCAN/IwORD(1S5,10),NUMBER 

470 BYTE NBUFFR 

471 COMMON/SCANI/NSUFFP (80) 

472 DATA ISC/1H3/ 

473 DATA JBLANK/IH / 

474 0001 FORYAT(8O0A1) 

475 READN(1,0001,EN029999,ERR=9999) (NBSUFFR(I),I=1,80) 
476 IPOINT=1 

4a77 ¢ SET POINTER TO FIRST CHAPACTER IN THE AUFFER 
478 C NOW PROCESS THE FIRST 15 TOKENS DELIMITED BY EITHER 
479 C A BLANK (OR MULTIPLE BLANKS) OR A SEMICOLON, 
480 C 


Lis 
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481 
482 
4B3 
434 
UBS 
4B6 
487 
488 
4a9 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
$02 
503 
504 
50> 
506 
507 
508 
509 
$10 
a) 
Siz 
513 
Sia 
a1> 
516 
a7 
BS 
519 
520 
S21 
Sez 
S25 
S24 
S25 
526 
S27 
528 
$29 
530 
531 
S3e 
533 
S34 
5355 
536 
BS 
Bon 
539 
540 


0003 


0005 


0004 


0006 


0002 


0010 
9999 


9998 


0001 
1000 


2004 


Page 9 Fri Fed 8&8 07:10:27 1980 


DO 0002 NUMBERS1,15 

IFLAG=90 

SET ITHwORDC(NUMBEF?, X)SIBLANK (SET wORD TO ALL BLANKS) 

00 9003 [=1,10 

TsORO(NUIMBER,I)SZIBLANK 

START SCANNING LINE FROM POINTER ON TO FIND NON=8LANK 

KOUIT=1 

"KOUNT” KEEPS TRACK OF THE NO. CF CHAR, IN THE TOKEN 

DD 0004 KPONINT=STPOINT, 80 

IF (NBUFFRC(KPOINT) NECIBLANK LAND. NBUFFR(KPOINT).NE.ISC) 
GO TO 0005 : 

IF CIFLAG.EQ.0) GO TO 9004 

IF (CIFLAG.EG.1) GO TO 0006 

CONTINUE 

IFLAG=]1 

TwORDC NUMBER, KOUNT )SNBUFFQRCKPOINT) 

KOUNTSKOUNT +1 

IF CKOUNT.GT.19) GO TO 0006 

CONTINUE 


CONTINUE 

E'NN OF TOKEIn FOUND, RESET SOME POINTERS 
IPOIWTSKPOINT +1 

IF CIPOINT.GT.80) GO TO 0010 


CONTINUE 
END OF SASIC TOKEN GETTING LOOP 


NUMBERSNUMBER =] 

PETURN 

CONTINUE 

END OF FILE OR I/0 ERROR DETECTED 

FOR“MATC® EOF OR ERROR ON SCANNER INPUT FROM UNIT 1°) 
TyYPe 9998 

NUMBER=0 

RETURN . 

END 


SUBROUTINE XINTGR(NWORD,IVALUE) 


CONVERT THE ENTRY IN “ITwORD”" TO INTEGER 
RETURN INTEGER “IVALUE® 


BYTE JWwORD 
COMMON/SSCAN/IWORO(15,10),NUMBER 
BYTE TSTRNG 

NOIMNENSION TSTRNG(10) 

BYTE IBLANK 

DATA IBLANK/1H / 

OO 0001 [=1,10 

KOUNT=I 
TSTRNGCI)VSINORO(NWORD,T) 

IF CIWORD(NAWORD,I).EQ.IBLANK) GO TO 1000 
CONTINUE 

CONTINUE 

KOUNT=KOUNT@=] 


FORMAT (X,10A1) 
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541 
542 
543 
544 
S45 
546 
547 
544 
549 
$590 
Dol 
Doe 
553 
554 
555 
556 
557 
558 
55? 
560 
S61 
S62 
2 oS 
564 
565 
566 
567 
568 
569 
7 0 
57 1 
ale 
p75 
$74 
$75 
$76 
ai 
S7o.C 
See 

$80 

581 

582 

5&3 

584 C 


an aa 


ator 


2005 


C006 


2007 


0001 


mace 10 Feveres €& O72 16227 1980 


FORMAT(X,1110) 

00 2000 T=1,KOUNT 

Jzlie] 

K=(KOUNT+1) <I 

TSTRNUGCCIJIVSETSTRNG CK) : 
LSi10-KOUNT 

Pomeno7. l=], 

TSTRNGC(I)SIBLANK 

DPE eCU Tt] Te2,NAME="I[STORE*,TYPE="NEW’, INITIALSIZE=20) 
We ayete,2004) C€TSTRNG(T),1=1,10) 

GEOGECUNIT T=2,DISPUSE="' SAVE") 
OPENCUMITS2,NAME='ITSTORE',TYPE='OLO! ) 

READ(2,2005) IVALUE 

GeIse CUNT T=e,DISPOSE=s DELETE) 

RETURN z 
ENO 


FUNCTION MATCHS(NUMB,STRING,NCHAR) 


tio tune TION DETERMINES IF SCANNER TOKEN 
Pee PCN Sy MotCKES THE CHAPACTERS IN "STRING* 
Rieesol FOR Tne FIRST “NCHAR” CHARACTERS. 


Peeeee ee 1S A MATCH Il RETURNES THE INTEGER *1* 
NO 4ATCH RETURNS “0”, 


RYTE IJwOROD 
COYAMON/SCAN/IWGRO(15,10},NUMBER 
SYTE STRING 

DIMENSTON STRING(10) 

MATCHS=0 


09 0001 T=1,NCHAR 
Petr wR DCHUMG, 1) .HE.STRING(])) RETURN 
CONTINUE 


IF YOU GET HERE, THEY wERE THE SAME.., 
MATCHS=1 


RETURN 
ENO 


ENO OF PROGRAM SIMULATOR 
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— 
Oo OON CO UOCWN— 


a 


Page 


] 


Pes 


Feb 


6 05:501:00 1980 


JRHRKERKKHRRAREKARRKA RARER ERA EKA RRR Ree eRe / 


JURHRAHKHAARARARA ARK ARRAN ERARKK AKA hak thee / 


Jexreet ere 
Jurkrkkke kik 
Saxkkh rrr 


PROGFAM TRANSGRAPH,C 


keekzkekenae/ 
Rerekaekenhe/ 
khektreee/ 


[RR KA KS STEPHEN C. JENNINGS JC91 USMC Ree akan / 
[keer ets ROBERT J. HARTEL CS91 USA khetkreee/ 
[aekkket pee kk keke / 
11 [kt hh RR WRITTEN FALL QUARTER 1979 khraekaakf 


[kek kkherene kkkekeeknee/ 
fJrerktkkek tr kkkkkknan/ 
Jrekkrrear khkreakne/ 
JakkkrakhkeeeaKaAKK Re ERARA RK RRR KKK heh keke ketene / 


LRRKRRARRER RARER REDE RIEREKKEKIEKKKARRA REAR RARRERE RRR KKR KK / 


NAVAL PUSTGRADUATE SCHOOL 
MONTEREY, CALIFORNIA 


— ot ee eet eet 
OnmMRnN oe VE Wi ty 


Jekkrekra et hahekeaetaekkerakeekeaekaer f/ 


20 /xk EXTERNAL DECLARATIONS ze / 

Cl SekeaeaekEkmkkaRA RRA RH aKK HRA KK KK Re kk / 

22 ; 

23 ; 

C4 S/xweke LITERALS xax/ 

25 

26 #define. header i) 

ec? #aefine pictures 50 

28 &B4efine bounds 100 

e9 #detine limit 500 

30 

31 

32 sexe STRUCTURES rue/ 

33 

34 struct { /* data structure information on net nodes .- 
35 

36 rice tm) 1 > /* store control char not used in orogram wee */ 
Sf int MNamertr-: LA ViNde x. CO MameGS at Go Viste) siecle (eleics 6 <6 se 60 c ee) #7 
348 int marker; /* initial marker state of the network cesccce */ 
59 int xcord:s LUXS OR CNG a tOweG ta). C Cimis estes cists se s.oss ac veces  t7 
ud Int ycord, TROY OC CGN 3 GONE ( FC Ila CO vetlel) oelsle « oc -0 bls 016.0.01eere 27 
4] int olot? /* whether or not olace is to he olotted .e.- */ 
4e int lengths /* YTenqth of name associated with place eeere */ 
43 

44 }filel fhounds), tonl; TAMOOVINCG Whi GOMmGa tas CMUC CUTE! [esse sees 066s 0s 
4S 

46 

47 struct { ; /* data structure information on transitions. 
46 

ag INteetrle? fe SUORe CONtCrO! -eENah not 1uUSes ih Ofogram <.. *7/ 
50 iN cmtrinol fs fx” ViNGlenent OminaNe Sma fi Oy tects slele ier e seis cele ees see 0 24 
51 int Intra, fe OC INter Co INnCUIS Ter @ CranmSition ssecces #7 
Se Vet Out. Pris 7% Hovanrer ©€6 GUtLDUtS TOR a tTrReMSTCION cesses */ 
53 int x«xcors, Jey COFCO IN at © ot © 35.) ©) Clim se ccre co oe oie ee 6 ee 0 87 
Sq Int yvycord? FRY KCOPOMMaCen © (ut Fae S IG NOGuretcs ccc «co ee se wccs #7 
59 int trnplot; /x whether or not transition is to be oslotten */ 
56 int trnien; /* Yenoth of name associated with transition */ 
S7 

S8 }file2e [bounds], *boed; LE DOVACE MMC O (Gata eS ORUG CULE <6 < sss ee « ¢s «66 
s9 

60 


leg 





61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7A 
72 
73 
74 
i> 
76 
77 
78 
79 
80 
81 
Re 
83 
B4 
85 
86 
87 
88 
89 
90 
91 
92 
93 
a4 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
195 
106 
107 
108 
109 
110 
ae 
Pi2 
113 
114 
11s 
1]6 
117 
118 
119 


transgraph.c Page e Pei orec 
/xxkz INTEGERS «2%/ 
int alracras, ad; Je 
int buffer foounds]); /* 
moe eencrl (i); /* 
int ctroverflow; /t 
int dflteolor: J 
int fdfbuf? Jk 
int fdabuf; /* 
int firinglbounds] 3 J 
fmt ictr: /* 
int ievents? jk 
int iflaa-s /* 
int iotbl (limit); Js 
int keicturess /* 
int linkrbl (100) (4); Js 
int norolot, /* 
int nbytes{[2); /* 
int overflowtbl (100) (21; J 
imt sets /* 
int sflag{20); /* 
int toletr, /* 
int uniqueto) (100) (4); /* 
yt vers, /* 
i 
/xxe CHARACTERS x22/ 
char fbuf (20)? /* 
char gbuf (20); Je 
char nanesltlimit); /* 
char SCO? © /x 
/rarkkth tha ereet er kaeeaekeeerearkakea / 
Jn FUNCTION MAIN ae / 
JL uemrakake renter varhkeraeeatarnaan$/ 
main() { 
extern ruhout(); /x cecl 
init); /* read 
determine(); Je veri 
disnlav(); /*« diso 
select ()3 /x sele 
prepare(c); /* oreo 
drawnondel); f/x afaw 
olaces(); /* veri 
trnslinrk(); 7/* tune 
imark(); f/x star 
sianalléersrudout)? /* sets 
narkinal); /e® succ 
gnfini(); /x clos 
} 
[Rama RRARKHRRERERERRR Ea RAR aR / 
Jan PROGRAM FUNCTIONS a / 
LRERAKRREKHEARRARARKRAKRKRAKRaR RR RARE 


120 


BA 05-01 200) 1950 


storage for each data structure eee 
INto which each frame is read 
F transitions fired .. 
overflow status 


alobal 
buffer 
variable containina 
keen track of nodes 
a default color for indicatina overflows . 
file descriotor for RUN..Y files 
file cescrinotor for RUN..2Z files 
storage into which fired places are read. 
counter passes to a function 
number of non= & displayable nodes 

counter for the interrupt mechanism 
forms inoutrtor~outout relationshin 

counter for the iterations of the network. 
version 1! & 2 screen nodes locations 

counter for numoer of disolayed nodes 
store count fields for data structures 
data structure to store overflow locations 
user selected conrac graphics screen 

saves flaca for later use py trnlite() 
acounter for version 3..reset conditions. 
reset table locations for version §$ 
user selected ootion 


aeons vee 8e282808280 28 
ee 8©8@ 8 8 @ 
eoeeeet@ 


name of second file 
Mame wor CP ince | V G66 0 ols «eo 
for node lahels 
for display to the screen. 


buffer to store 
buffer to store 
character array 
ootion variable 


Ate CUDOUtE EallOb a INV: cise vies cccceeeswe *7 

TG tomate lee Be oteroneeesetcte pietelacs o¥s s-6.ecee-e eee, © 7 
fy if user wants to see data structure */ 
leaty wali Get OurG GG ie cietelcotercre cco oe o1cle «es «0 8 7 
ct version of simulation & aenisco set */ 
SPeMCeNeSsco-COmMbaGttcessis.ce cicccccc cscs M7 
Network enOdesSuOONmCONOaGC Ssecasscoccsgeca. */ 
fy correct NOOES AGFAWN cecosccsccesccese */ 
tian disnlavys network transitions eee.e */ 
fing StetUs oOfemelwork GPacketS cocseas */ 

au oS es tei CS Iie le telet oe ele ee:s 00% save. * 7 
essive iterations of network flow w22e */ 
IMO OCULLOPaRN CS TaeVNNt eS fccccecess */ 


120 


a / 
a / 
x / 
af 
x / 
x / 
x / 
a / 
a / 
xf 
x / 
a / 
a / 
x/ 
x / 
x / 
x / 
x/ 
af 
x/ 
x / 
af 


x / 
x/ 
x / 
x / 
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Ke 1 
l2e 
123 
124 
125 
126 
127 
128 
129 
130 
133 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
LAS 
146 
m7 
148 
149 
150 
1S! 
15e 
Ho} 
154 
rS5 
156 
Po? 
158 
i? 
140 
161 
l6e 
163 
164 
165 
166 
167 
162 
169 
179 
eT 1 
172 
173 
174 
LS 
176 
a7 
176 
179 
180 


pause(peroiad) { 


/* function necessary as sleeo() not compatible with signal() */ 
VAG ie ba ks 


Denott( “**>>interruot ...ecce”)} 
for (i=9ti<ceroiasit+tt+) 
for(j=0-j)<4003j;+4) ¢ 
for (e=O7k<1000F k++) « 


} 
) 
} 
Sinai! Co #8 a> > 1t. ces ee) 3 
return, 
} 


rubout () { 


/* function enables the ‘brk' key as the interrupt signal */ 
char hnalt; 


space(2); 
orint f 
("ze#>>> received signal...frame number X%deee<Sret> to continue \n", 
(iflact2)); 
Crime f 
("akk>>> for termination of proarame.eetype ‘'hbrk' from console \n")3 
while (€Chalt=cetchar())!='\n') € 
/x doenothing loop &/ 


} 
signal(2,rubout): 
return, 
} 


space(returns) { 


int 13 


for (129; i<returns;s i¢¢) { 
orintfC"*\n");3 
} 


return; 


} 


rait() 4 


/* function ooens unformatted file ® initializes start condition */ 
int arshufetr,count,fariszj3 
char chuff2é0l,c,f;3 


soace(-e); 
printf ("e*e#=->TRANSGRKAPH JLLUSTRATFS PETFINET SIMULATION MODELS"); 


snace(2); 
orinet("*aeer>—NTER TRE NAME OF TRE FILE 19 FE PROEGCESSED..RUT Nn"); 


coeimt *(" MOTE THET THES FIRES MIST ONE Ari OPMATTIED FILE Na“); 
print + (" PROPUCED AS A RESULT OF EXECUTING simulsator.out \n"); 
Seintt(" PRE CASI LETVERSOF WrelCh MUST ENDeTHO LETTER °"X* \n"); 


errorssrace(e); 


orintf("*arroer"); 


LZ 
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181 
re 
183 
184 
185 
186 
187 
138 
189 
190 
191 
192 
oS 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
20° 
206 
207 
208 
209 
21,0 
elt 
ele 
ais 
214 
21> 
216 
ei7 
218 
219 
220 
eel 
mec 
223 
224 
2c> 
226 
227 
een 
wet 
230 
231 
23? 
233 
234 
e5> 
236 
237 
238 
eo? 
240 


120; 

while((c=aetchar()) !2= '\Xn') { 
cbhuf fil =c; 
itt; 

} 


couflijJ='NO'; 


bufctr=i3 
for(j=07j<bufetrsj++) |{ 
aouf(j)=fbouf ljlechbuf (j);3 
wi (chut (jle="x') ¢ 
fouf(j)l='yY'3 
gouf(jle'Z': 
Soufiy*listbuf (j +1)S°\0%; 
j=bufctr: 


} 


fd = open(cbuf,0); 
tft duces 0). { 
orintf("***=>error occurred in opening file...try aaain")? 
soace(3); 
goto error, 
j 


if((count = readlfornbytes,header)) != header) 
orintf ("error occurred in nboytes read"); 

ievents = (nbytes[1} - 1); 

al = nbytes(1); 

a = (nbytes(1)-1)*14; 

if((count = readn(fa,filelsza)) != a) 
orintf("error occured in filel read"); 


if(Ccount=readlfas,nhbytes,header))!=heacer) 
orintf ("error occurred in nbytes readg")3 
ac=noytes(1); 
a=(noyteslil-1)%*16; 
if(Ccounttread(fd,file2,sa))!za) 
printf ("error occurred in filed read"); 


if((€count=read(fdsnevtes, header) )iz=header) 
orintf("error occurred in header read"); 

aSenbyteslil; 

a=(nnytesfl)l¢t)«e; 

tf CcCecunt=read(fa,iothl,a)) =a) 
orintf("errer occured in iorh! read"); 


if(Ccount=readlfarsnovtes,heaner) )!sheader) 
orintf( "error eccurred in header read"); 

a4Yennytes{t]; 

a=nbytes(}} 417 

if(Ccountsrean(fo,namess,a))i=a) 
mrintf(“error cccurred in names read"); 


close(fd); 


return? 
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241 determine() { 


242 int i: 

243 char a,cbuf (20); 

244 

2u5 space(2); 

246 Orintf("**te->FUNCTION ‘DETEPMINE' ALLOWS THE USER \n")? 
247 peant? (> TO EXAMINE ALL PRIMARY DATA STRUCTURES"): 
248 over:soace(l2); 

249 SGrntemn c= nif THIS FEATURE IS DESIRED TYPE 1 IF NOT 0,...<<RET>™)? 
250 space(e); 

251 printf ("*xe%re>"); 

252 

e553 1=0; 

254 while(€(d=aetchar())!='\n') { 

255 douf (i) =d; 

256 i++3 

257 } 

258 dbuf (iJ ='NO'; 

259 

260 i1=0; 

2b) while(Cotuf liJ !s'N\O') { 

262 S=abuf (i); 

263 switch(a) { 

264 case'OQ': 

265 scerms'Q'; 

266 break; 

2b7 — e¢ase'l's 

268 scrna'i'; 

269 mreintf("rre>sUSE CONTROL Q WHEN SCREEN FULL"); 
270 Creak; 

27! default: 

eve printt("trxter>ejither blank or invalid entry"); 
273 aoto over; 

e74 break; 

275 } 

276 itt; 

277 } 

278 return? 

279 } 

280 

2a} 


282 display() f{ 
283 int i- 


eau 

2a5 Tt cCsermne-' 1") 4 

ZF 6 space(2e); 

287 bol = tilel; 

RR EminmttiC"asse=> FILE! OATA STRUCTURE"); 

2F9 snacel(?); 

290 prant’(“Ilnfee4 £ marker xcord ycord plot length \n")3 
col for (i=Cei<4als ir) { 

292 Bruit teed Nt 4a Nt 2 Nt 2eC \t 4a Nt 4d Nt 2a \t Na", 
293 holeroctrils,noelam>namentr, onlw~>marker,s,hnin->xcord, 
294 hele>ycordrbol=2-0lots,bol->lenath); 

295 bol++; 

296 ) 

297 

c98 space(e)?7 

299 toe = filed; 

300 Orintt("*#rre> FILES NAFTA STRUCTURE"); 


Zo 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
513 
314 
315 
316 
317 
516 
Bo 
320 
321 
32e 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
334 
339 
340 
34} 
342 
343 
344 
345 
346 
347 
34k 
349 
350 
35) 
Soe 
353 
354 
355 
356 
357 
358 
359 
360 


space(2); 

orint f 

("Infeed tronpter intern outtrn xxcord yycory trnplot trnien \n");5 
for (i=O0si<ac? j++) { 

Mima Nt oa Nt 4ouNt %4o \t 2d Nt “%a \t 42d Ne 4d Nt \a™, 
hoe-ocreleésbneertrnotr,coc=r>intrnrooe-routt rns 
boew>xxcordr,one=>yycordronem>trnrplotrtpew->trnien); 

boet+; 

} 


space(2); 
orintf("xt2-> TOTSIL DATA ARRAY"); 
seace(2); 
for (i129; i<a3; i+t) { 
erimet (4d ", iatb) fi} ); 
) 


space(2); 

printf ("xk#-> NAMES DATA ARRAY"); 

scace(2); 

for (120; i<ads i+*4+) (: 
printf("%e",nameslil); 


} 
soace(2); 
} . 
return; 


) 


prepare(type) { 


fr 


function designates Set, screen size and color table */ 


int NMertseyve 


y= 
ae 


0; 
nisco (set); 


erase(); 


sc 


reen(0.0,0.0-511.0-511.9);3 


setmod(type); 
coltab(); 

eqgiart cll)? 

for (n=1ejn<l4szne+) { 


color(n); 
for(r=ansr<Slezrr+e) |{ 

searmnt(O,ytt,Sli,ytt)s 
) 


return, 


drawnorie() { 


/* 


fiinction disolays tyore & location of network nodes */ 


char crerenntr,holds 
int arbrclriniscountrdrentevebhsisjeks le teste xrys *23 


f | 


oat se 


double sart(); 


bol = filels 


a= 
count = 1, 


0O- 


124 
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361 

36e while((test=(bol->namenptr))!20) { 

363 color(14); 

364 test+t; 

365 z = &names(test]; 

366 Cc = *2; 

367 

368 if (Ch=Copl->plot))!s 0) { 

369 Switen (c){ 

370 case ‘I's: 

371 x = (bol=>xcord); 

372 y = (rpl->ycord); 

373 for(d=0;d<10;d++) { 

374 seamnt (xelbos,yretdexryte+d)? 
375 ) 

376 linktol la) (3) =1,- 

377 break? 

378 ease> Os 

379 x = (bole>xcord); 

380 y = (bole->ycord); 

3861 for(dz07;d<10sd++) { 

382 seamnt (xelosyrerdexryrerd)? 
383 } 

384 LTinktobl fa) (3) =13 

385 break? 

386 Gase@ k - 

387 « = (ont->xcord); 

388 = (bpl->ycord); 

389 aaCae O;d<3lrdat+e) |{ 

399 seqmnt 

391 (xe 1B ed/4,yelSedext+1Bed/4s,ytltSed); 
392 } 

393 clrlblsl4; 

394 label(xsyr,testrclribl): 

395 preak, 

396 case ‘S’: 

397 x = (bpel->xcord); 

398 = (rol->ycord); 

399 Aaa Ord<3led++) { 

400 seanmnt(x-18,yrlStdextles,yriSt+d); 
401 } 

402 if(vers==3) f{ 

803 notr= &nmamesl(testtl); 
4o4 rola= *notere 

405 clriblseatoil(shold), 

406 lahbol(x,vetestscirlbl)-, 
407 ; color(14); 

408 } 

4uo9 else ( 

410 clribl=14; 

Gii lahel(xs,yr,testeciritl)? 
412 } 

413 break? 

414 case ‘T°: 

ais x = (hole>xcord): 

Y1o v = (tole>ycord): 

417 for (kt07k<197K+e) { 

G15 Sok; 

419 i=(xe-(sart(324.-sts)))? 
420 j-vtse 


ZS 
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42k 1=(x+(€saqrt(32e4.-+s%5)))3 

Yee seamnt(i,s,jelsj);3 

423 } 

424 for (k=0sk<193; k++) { 

825 S=k3 

426 1=(x-(sart(32U.-s%5)));3 

427 . j=yrse 

428 leCxt*+(sart(324.-s%s)))3 

429 seamnt lisgjrlej)3 

430 } 

431 if(vers==3) { : 

432 nptr = &names(testt+l) 3 

433 hold = *nptr; 

434 clribl=atoilshold); 

43S label(x,y,tests,clrlol); : 
436 color(14); 

437 b 

438 else { 

439 clrlbl=14; 

84d label(x,v,test,clrlbl); 

QQ} } 

442 break; 

443 default: 

Quy printf(“*name not valid identifier”); 
gus snace(2); 

4u6 break, 

447 } 

448 

44g Niaktol Cal (0) =ecount; 

859 linktol fa} (1) = x3 

451 linktbl fal f2) = y;3 

4Se2 att; 

453 } 

4sg4 counttt, 

4ss bolt+3 

4s6 b 

4us7 if(vers==3) { 

458 entry=0, 

459 sniquetol fentry) (9) =linktbl (0) (0); 

469 uniszuetbl] fentryl (1) =linkethl (0). 01) 

Yol uniauvetbl fentry) (2) =linktnl (0) (2); 

862 uniquetollentry! (3) =linkthb!) (0) (3);% 

Us thletr=l13 

464 for(iz0si<azitt) { 

465 ifCuniauern)] Centryl] (1) selinktbhl f141) €1) RR 
Yoo uniquethl] fentery) (2) szlinktnlli+*+l) (2)) { 
867 /* ao notnina */ 

4o8 } 

469 else { 

470 entry+t; 

Q71 uniauetol fentryvl] (01lFlinktbl (1 +1) €0)3 
a7e2 uniaquetbl (entryl fllelinktol itl) €1) 7 
473 uniaquetol fentry) (2) =linktol (i+) (2), 
47a uniquetbhlfentry) (3) elinkthl fit4+h) (3), 
4a75S tolctrét; 

476 } 

a77 } 

478 } 

479 norolot=a-, 


480 return; 


Zo 
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481 
432 
433 
aga 
485 
4&6 
487 
488 
489 
490 
a9} 
492 
493 
494 
495 
496 
497 
498 
499 
500 
50 1 
502 
503 
S04 
505 
506 
507 
508 
509 
51 0 
S| 
Ste 
$13 
$14 
515 
516 
S17 
S15 
519 
520 
521 
S2e 
$23 


$40 


} 


olaces() { 
wmcuNe ls jek e 


if€strn=='1') { 


} 
return, 
} 


space(2);3 
Sreimerc ste-oDATA STRUCTURE LINKTBL "); 
snace(2); 
for(is0si<nbrolotzi++) |{ 

for (hsO0sn<Gshoe) { 

orineftc"%d --<",linktbl (1) Gh) );3 

} 

soace(1); 
) 
soace(e); 
iff(vers==3) { 

printft(“x«r-e>DATA STRUCTURE UNIQUETSL"); 

soace(2); 

for(jsO7jy<roletrsjte) { 

for(ks0;k<Us ke) { 
printf("%id -=-",uniauethb] (j) (k) )3 

; } 
| snace(1)? 
) 
} 
space(2); 


lacel(xx,yvyre-zz-cinl) { 


/x determines norte lanel olacement in relation to noge */ 
imt f.i12 
char az 


colart(cibl); 
1#(xx>250) { 
if(yy>250) az'1'; 
else a='2'; 
) 
else { 
Heyy eess) a='’3'; 
elsa 323'4'? 
j 


f=(noler>lenoth): 


Switch (3) { 
case'li'’s 
for (isNsi<esite) { 
charac((xx+(20+(Ari) )Jevyt+l1S,names(z2)]); 
Z2t?; 
) 
break; 
case'2': 
forl(isNsi<esirt+) { 
charac ((xx+ (204821 J, vyye2R,names (z2) )> 
ZzZ++; 


Ze) 
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541 
Sue 
543 
Su4 
545 
546 
$47 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
S62 
563 
564 
565 
566 
567 
568 
569 
570 
571 
S72 
57 3 
574 
575 
576 
B77 
578 
$79 
580 
581 
582 
583 
Saag 
S85 
SAR6 
SR7 
58 
589 
5°0 
591 
592 
593 
594 
595 
596 
597 
598 
599 
609 


} | 
preak; 
case'3's$ 
forl(izOsi<eszite) { 
charac((xx-(32-(8t1)))s,yyt1Se-namesl(z2) )3 
z2t++; 
} 
oreak? 
case'dU's 
for (i1=071<27it++) { 
charac((xx-(32-8%1)),yy~26,namesl22z) );3 
22+; 
} 
oreak, 


return; 


select () { 
int tenes 
char vevouf (20); 


soace(2); 


orintf("*xe#ero THERE ARE 3 VERSIONS TO THIS GRAPHICS PACKAGE N\n");3 
orintf(" PLEASE SELECT ONE OF THE FOLLOGSING VERSIONS: \n")?3 


again:spacel(2); 
printf(" VERS LON e score TR LNG PAG RAG Eo coc 
orint?("* VERSION 2 2... PACKET PEPRESENTATION ... 
orint?t(" VERSION 3 2... MULTIROUTING PACKAGE .... 
n = 07 
twice:snace(2); 
prinrt("xsree>"); 
nets, 
i = 0; 
while ((veaetchar()) $2 "NXn') ¢{ 
veut (i) = ve 
i++; 
) 
voufli}d = "N0°% 


i = 0; 
white(vouffil) ! 
v = vouf fij 
if(n==1) { 
Saitceh(v) f{ 
Cases’): 
vers = 13 
break; 
case ‘e's 
vers = 2; 
break? 
case ‘3's 
vers = 33 
break; 
default: 
orint ¢ 
("xkaekr->jincorrect version try aqaini"); 
goto aaains 
break; 


= 'NO') { 


TZA8 


TYPE 1 N\n")3 
lv¥ee ec Nn@)s 
TYPE 3 \n")? 
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601 
602 
603 
604 
605 
606 
607 
608 
609 
6190 
611 
6le 
21.5 
614 
o> 
616 
617 
616 
619 
620 
621 
eee 
623 
624 
625 
626 
6e7 
628 
629 
630 
631 
ose 
633 
634 
e595 
636 
637 
638 
S57 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
° 650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 


Page 1] Fri Fed 


} 
i++; 
} 
else { 
Switch(v) { 
case ‘O°: 
: set = 0; 
break; 
Gase —" 17°.s 
set = 1; 
oreak; 
case ‘2's: 
set = 23 
oreak; 
default: 
orint f 


6-055 01:00 


1980 


(Nxee=->incorrect aenisco set try again! "Jj? 


orintf 


i. set selection shoulda be 01 or 2")3 


n= 1; 
moto twice; 
oreak,; 
} 
i++; 
} 
me Gn==1) 4 
space(2); 


Geumpers, <*eceoNOuw SELECT THE GENITSECO SET YOUMMISH \n“); 


printf("” 
erinte t ©" 
90to twice; 
} 
return; 


} 


imark() { 


THE PROGRAM TO BE DISPLAYED 10..-.. \n")3 
IN GS CAS EITHER SETO, SETL-OR “SET2 \ni"e) 7 


/x marks initial state of system by calling aoprorriate function */ 


INt bHreCcolours,A@rQsexry>e 


hol = filel; 
dfltcolor=3; 
colorldafitcolor); 
enlourte; 
ctroverflow=0; 
while (Catlponl=>namepter)) $20) { 
if€(bslonl=>olot)) $=) { 
Switch(vers) { 
case }]3 
iversl(); 
break; 
case 2: 
iverselcolour); 
oreak, 
case 3: 
ivers3(colour)? 
break, 


12 
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601 rf (dfltcolor!=3) color(3);3 

662 boltt; 

663 } 

664 color(14)3 

665 orinta(0,550.,480.,"TIME FRAME = 1%)3 

666 oreread(1); 

667 trmtyra tl); 

668 disola(), 

669 hola(); 

670 trniite(2); 

671 reset(1); 

672 color(13);3 

673 ove flow(): 

674 creimtac0, 550.,480.,"°TIME FRAME = 1%); 

675 return; 

676 } 

677 

678 

679 hold() { 

680 int holding; 

631 

682 space(2); 

683 permatf( *#2*-—->THIS 1S THE INITIAL STATE OF THE NETWORK \n"); 
684 orunt tC" TYPES <RETURH> 1G) CONTINUE “EXECUTION. 2 oe. NA"); 
685 while(Choldinasgetcnar())!='N\n') 

686 /* go nothing loop */ 

687 } 

688 return; 

689 } 

690 

691 

692 iversl() { 

693 IMt @rxKry¥r2Zs 

694 cnar check; 

695 

696 e=(bol->marker): 

697 x=(bol->xcord); 

698 v=(col->ycord)3 

699 Z=(bole>nameptr); 

700 if(€check=names{zel) )i=°I* && (Ccheck=names(ztiJ )$='O') { 
70! orintg(0,x«-3.0,S1l1.-(y*3),"%d",e)3 

70e ) 

703 else { 

704 if(check=names{fz+iJSe'I') printalO,x-14.90,511.-Cyt2) "44" ,e);3 
705 else erintaql0,x-14.0,S511i.--ly29)¢"Xd",e)3 
706 } 

707 return: 

708 } 

709 

710 

711 jiverse(colour) { 

7\2 INt @eKeVeZe 

713 Char cneck; 

my a 

715 ez(hole>marker); 

716 x=(bole>xrcord): 

717 ve(bol->ycord): 

718 Z=(bol-e>nanentr); 

719 ift((checkenamesl(zel} )JI='I' && Ccheck=namesfzti))$='G') |{ 
720 ocktelx,vrees,colour)? 


50 
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721 } 

72e else { 

723 tf(check=namesfztelis='I') orintglO-,x-l4.0,S511.-lyte)e"%a",e); 
724 else mrintg(0,x-14.0-51 1. ly79),"%d",e)7 
725 ) 

726 return; 

7e7 } 

728 

729 

730 iversi3lcolour) { 

731 char keed,*kptr; , 
732 INt araardsbbecreccrcirieSliviskseneStackstotalsrxrye 
733 

734 total=0; 

735 n=17 

736 x=(bpol->xcord); 

737 y=(bol->ycord); 

738 a=(boel=>length): 

739 b=(crol->nameotr); 

740 c=(bol->marker); 

741 total=total+cs 

742 

743 if(e>0) f{ 

744 farli=O07i<er7++) { 

745 ' kotr = §$nameslbtare) 7 

746 * keed = tkptr; 

747 —  elr (n)tatci(&keen); 

748 nt+3 

749 } 

750 ) 

751 

7S2 kotr = &names([bdtal? 

255 keep = tkotr, 

754 Stack=atoi(&keenp); 

755 

756 if(nameslb+lCarvlJIst='O') { 

757 it(names(ctlarl)Je2='2') stack=stack+2e0; 
758 else stack = stack + 10; 

759 } 

760 

761 for(i=t9ri<stackwlreite) { 

762 ppl++; 

763 aa=fpol=>length); 

764 bon=(tol->nameotr); 

765 ecczl(rol->arker); 

766 totalt=totaltce: 

767 weGce > 0) { 

768 for(ktIsk<ccskt+) ff 

769 kotr = k&nanes  (bbtaare); 

779 keen = #*kOter; 

Hoe cilrinlsatoi(’&keen); 

ide n++7 

773 ) 

774 } 

Lis } 

776 iffnamesloetl} t='1' *& names (bel) $='O') |{ 
Vit ockt3 

778 (x,v,totalscirillscirlairecir (3) -clrl4),cir(S),-cirlol,cicrt(7), 
779 colour); 

780 ) 


1k 
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781 
78e 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
&03 
804 
805 
806 
&Q7 
808 
809 
810 
811 
812 
813 
814 
Si5 
816 
817 
818 
819 
820 
821 
B22 
823 
B24 
B25 
R26 
827 
828 
829 
A30 
831 
&32 
&33 
&34 
835 
&36 
837 
838 
839 
840 


else { 
ene AS tot) ==  l Jeorintot(0,x-14.0,511.=ly+e), "24" ,total )? 
else orintal(O,x-14.0,S11L.-(y-9),"Xd" total); 
} 
return; ea 


} 


oe 


Ppreread(flaa) { 
int oucket[2}l,count,fds,far,is,nortrns3 
yectlagt=5) { 
if(€flag==!) { 
fd = open (fbhut, 0)3 
Veelfta<=0) 
printf ("kx*k->error occurred in ooening fd file”); 
} 
fdfbuf=fds 
fa = ocen (abuf, 0)3 
if (fa<=0) { 
orintf("xk*=->error occurred in opening tg file"); 
) 
fdgtut=fg? 
} 
if((count=read (fdfhuf,s bucket, 2))!=2) { 
orintf("*t*e->error ocrurred in fd bucket read"); 
} 
if€leount=read (fafoufse ouftfers,(ievents*e)))i=lieventsxe)) { 
printf ("sxxk*->error occurred in buffer read"); 
} 
if€(Ccount=reaa (fdanufs hucket, e2))!s2) { 
Orintf("x*k=>error occurred in faq bucket read"); 
} 
if((count=read (fdabuf, entrl,2))!22) { 
Orintf("**r*—->erfor occurred in cntrl read"); 
} 
if€entrl (0) 220) ¢{ 
soace(2); 
orintf("**k*=->the last network state has been achieved"); 
kdictures=picturestl; 
soace(2); 
) 
else { 
if(lcount=reart (fdaqpnuf.s bucket, e2))ize) { 
printf ("***=>error occurred in tucket read"); 
} 
nortrens = entrl (0) *2;3 
if(Ccounttreas (tatanuf, firinarsnertrns))!2= nortrns) { 
orintt("xtk->error occurred in firing read"); 
} 
) 
} 
else { 
closel(fafbuf): 
close(fdaouf); 
) 
return, 


} ‘ 


stase() { 


4 
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84} 
Rye 
843 
844 
845 
846 
847 
848 


AQQ 
a9} 
892 
893 
894 
AQS 
896 
R97 
898 
899 
900 


if (koicturesiz=0 8% knictures<picturestl) { 
preread(2); 
if(xmicturesi=picturesel) { 
trniite(i)-; 
disola(); 
pause(1); 
trntiitel2); 


returns 


marking() { 


7x function disolays successive iterations of the 
Nt colours drawsi re Ta ark ysnsxXeY? 

bol = filets 
Nn = 2@3 


/x followina loon orocesses ievent *% oata antries 
for(kpictures=D7keictures<picturesskpicturestt) { 
stage(); 
afC<cictures>0) { 
reset(); 
color (13); 
ovrflow()?; 
orinteg(iN,350.,480.,"TIME FRAME = Zd",n);3 
nee; 
} 
iflacac = koictures; 
draw = (pel->plot); 
Sfircolor=3; 
color Cafltcotor)? 
colour=e; 
ctroverflow=0, 
for (1207 i < jieventss itt) 
=> 1) 4 


if (draw = 
ictr = 
switch (vers) {4 
cam@ed 13 
versi(); 
nreaks 
case ¢: 
versel(coleour): 
nreaks 
case 3: 
vers3(colour)? 
hreaks 
} 
} 
ie actr+ +> 
if(atltcolor!=3) cclor(3); 
nolt+; 
Gran = (bnpl => nlot); 


} 

dfitcolor=14, 
colarlafitcolor); 
colour=1 3; 


L556 


network */ 


each pass */ 
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901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
94} 
942 
943 
944 
94s 
[946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 


CEIMUG( 05550 .,4710., 1 IME FRAME = Za" yn); 
causel(e2); 
trnlite(3); 
bel = filel: 
} 
oreread(3)3 
return; 
} 


oveflow() { 
INC teoxeve 


1=0; 
whiteloverflowtbl] (i} (0) $20) { 
x=overflowtb) (1) (017 
v=overflowtcl (i) (113 
Mrocmotx=5)*)].,911.°C€y+eS) *1..€x+10)"10,511.-Cy #20) *1.)3 
overflowtol fi) (0) 203 
overflowtbol (1) (1) =03 
1++; 


return? 


versil() { 
INt erxryVe?e 
char check; 


color(3);3 

e=bnufferlictrl; 

x=(bol->xcord); 

y=(o90l*>ycord); 

Zz=(bole>naneptr); 

if€€eheck=names(z+il) )I=°I* && Ceheck=names(z+1})!2'O') 
printg(0,x-3.0,-Slil.-Cy73),"X%d",e)3 . 


} 
else { 
if(checksnames(z+l}2='IT') printaldO,x-1l4.0,Sil.-Cyte) eo "%d",e);3 
else printa(0,x214.0,-S11.2Cy*9) 6 "%d",e)3 
} 
return, 


} 


verselcolour) { 
INt Parks Xr ye Ze 
char check; 


xe (hnlermyconrdg)? 

v=(rol=>ycord);: 

z=l(onle>nareoter)? 

marks=nufferlicterl); 

if€lcheck=names(zell$s'I’ &% COoheck=names(z+l]l} )!='O') { 
ockre(xs,y,nark,colour)s 

} 


else { 
if((checksnames(zeli)J=z='I') printglO,xol4.90,Sil.e( vee) p "Xa" mark); 
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961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
9784 
979 
980 
981 
982 
983 
984 
985 
9&6 
987 
988 
gaa 
920 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1090 
1001 
1002 
1003 
1094 
1N05 
1006 
1007 
1QVA 
1099 
1010 
Oi 
1012 
1013 
1014 
1015 
1016 
1017 
1014 
1019 
1020 


Feb 
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else printg(9,x«-14.0,511.-(y-9),"%d",mark)} 


saraoh.c Page 17 Fri 
} 

return; 

} 

vers3(cdélour) { 


mnt 
char keep, *kotr; 


total=0; 
n=1; 
x=(hol->xrcord);3 
y=(hol->ycord); 
a=(cbol->lenath); 
b=(nol->nameotr)? 
mark=bufferfictr); 
total=total +¢mark; 
if(mark>Q) { 

for(j=07 j<marks j+t) 


a°aarD,Obe-mark,marks, cir (25) ,jrkenestack,total,x,y;3 


{ 


names lotarc) 7 


kotr = 
keen = *kotr; 
cir (n) satoilskeep); 
ntetee 
} 

) 

kotr = &namesl(bta) 7 

keep = t*kotrs 


stack=atoi(&keeo)?; 


if(names(n+(Can-l)) $2='O') 


if(names(b+(arj))=e='2') 


else stack = stack + 
) 
for(j=O07j;<stack~lsj+e) 
bol+t; 
ictrt+t; 


aa=(bpl->length); 
bb=(hol=>nameotr); 
marks=oufferlictr]; 
total=totaltmnarks; 


Stack=stack+2e0; 
103 


if(marxcs>0) { 
for (k&eske<rnarks2k +t) { 
“Ketr = snames l(botaare); 
kKeeD = teptr3; 
cle fni=atoi(&keer); 
Nee, 
} 
} 
} 
tremanmesithb#i) :=']* §*% mamestboelit=*Go*) < 
pekt3 
Cxevercotal,ciritls,cirle),clets),ciriti,etr(Sl,zcirlolt,ciri{7), 
colour); 
} 
else { 


if(names(ht+1l]=='1F') 


Crintal(O,x-14.0,S11.-(y+2),"%a" 


else orinta(0, x-1%.0,S11.2ly*9),"“La",total ); 


li 


plotalo: 
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10e1 } 

L0e2 return; 

1023 } 

1024 

ore 5 

1026 oekte(xaxisryaxisronint,class) { 

1027 

1028 switch(ooint) { 

1029 case 0: 

1030 break; 

1031 case 1: 

1032 block((xaxis“3)*1.-S5ll.“(vaxist3) *1.-€xaxis+3)21.,511.°(yaxise3)*«1.)? 
1033 break; 

1034 case 2? 

Ho 5 block ((xaxise3)21.,Sll.-Cvaxist3) alee (Cxaxise+3)*#1.,511.-(vaxis-3) *1.)3 
1036 block ((xaxis-3)*1.,Sll."Cyaxiso-7) lee (xaxis+3) *#1.,-511.7(yaxis-13)*1.)3 
1037 hreak; 

1038 case 33 

1039 block((xaxis-3)*1.-5) 1 .-(vaxis+3)*l.e(xaxis+3)*1.,5ll.-(yaxis73)21.)7 
1040 bloek«((xaxis75)*1.-,511le-Cyaxise7)xlee(xaxise3) x1 .,511.°(yaxisnl3)*1.)3 
1041 block ((xaxise3)*#1.-,Sll.-(yaxist+1 3) el leg (xaxist3) e1.¢-511e-(vyaxist+7)*1.)3 
1042 break; 

1043 case 4: 

1044 block ((Cxaxised)21.,5) 1 --(vyaxis+3) alee lxaxist3) *1.¢511.-Cyvaxis~3)*1.)3 
1045 gem is=5)*1.+511.-(Cyaxvis-7)*!.e(xaxist+3)*1.,511.-(yaxvris-13)*1.)3 
1046 block ((xaxis-3) *1.-Slle(yaxist+l3)elee(xaxists) e1.-S5Sl1l.7(vaxist7) *1.)3 
1047 slock((xaxis+/7) *1.-S51lle-Cyaxist3) «lee (xaxisel13)x1.,-S511.-(yaxis-3)*1.)3 
1048 oreak; 

1049 case 53 

1050 pDlock((xaxis“3)21.-3511e-Cyaxist+s)elee(xaxis+3)*#1.-S51t1."lCyaxise3) 21.)3 
1051 Oloex«((xaxise3)21.-Sll.“(yaxise7)*1le,(xaxist3)*1.-S5li.-(yaxis-13)*1.)3 
1052 bisek((xaxis<“3) 21.-S511l.“(Cyaxise+13) *}ee€xaxist3)21.,Sl1.-(yaxis+7)*«1.)3 
10S5 bhlock((xaxist7) *1.,Sll.“(yaxist3) eine (xaxistl3)*1.-511.--(yaxis-3)*1.)3 
1054 Dloce((xawisw15)21.,511l1.“(yaxist+3) *loeg(xaxisr7) *1.,511e-(yaxises)tlede 
1955 break; 

1056 case 65 

1057 nloek((xaxis“-3)*1.-/51le“Cyaxist3) *ler (xaxist3)*1.,S5l1."(vaxis-3)*1.)? 
1058 hlock((xaxise3)*1.-,S511-el(yaxisel7)ai.re(Cweaxistd) 21.¢,511."°(vaxisol3)*1.)3 
1059 bloc«((xaxris~3) e1e.-Slie-(yaxris+ls)eios(xaxist3) *1.,511.-Cyaxis+7)*1.)7 
1069 Olock((xarist+7) *1,.,Sll.-(yaxis+3) ele, (xaxist+13)*1.,-Sli.-(yaxis-3)*1.)7 
1061 bloec«((xaxisel3)%*1.6-51}) .e-(vaxist+3) *1e-,(xaxise7)*1.¢,511.e*lyaxis73)*1.);3 
1062 block((xaxis@-13)*1.,Sll.7(vaxis¢*l3)*lee (Cxaxise7)*1.-,511.-(yaxis+7) *1.)3 
1063 creak; 

1064 case 73 

1065 block (Cvearise3) #1. -Sliee(vaxist3a) eier(xaxist+3de1.,-S)1.-Cyaxis73)*1.)3 
1050 nloz<((xaxiso3)e).-5)1 eC yarise7)*lee(xaxiseS)e1.,-511.7°( vaxisel3)*1.)3 
1067 nhlock(Cxeaxiseade1). -Stlow(vaxistl 3vetee Cxaxist3) elo -Sile-(yaxist+7)*1.)3 
1068 nlock((xaxist7)*1.,5} Leol(vaxista) ele (xaxistl 3) *e1.,-511."(vaxis75)*1.); 
1009 olock((xaxrse7ls) ele -3Slliewlvaxists)etoe(xaxism7)*e1.-S511.“(yaxise3) *1.)3 
re70 Dlocek((waxisel )*1.-,5) 1 .-(vyaxistls)elee(xaxisn7) 41.-511.7lyaxris+/)*1.); 
1071 alsen({(xaxist+/)*#1.-5!)1.~-Cyaxist+13)*1l.-(xaxist+lS)ale-Sliew(yaxis+7)*1.)2 
1072 nreak; 

1073 default: 

1074 overflowtnl fetroverflow) (0) =xaxis? 

107s overflowtol fetraverflow! {lisyaxis; 

1076 etroverflow++; 

1077 Dlock((xaxrise3)*1.-,Sll.ee(vaxist+3) elee(xaxist3)*e1.,S51) .-Cvaxise3)*1.); 
1078 bloex«((xaxisws) e1.-,51l1) eel vaxism7)tler(xaxist+a) e1.,-Sll."-€Cyaxisw13)*1.);3 
1079 block ((xaxis*3) «1.-Slleelyaxistl3)tleeg(xaxis+3) x1.,S511.-(vaxist+7)21.)3 
1080 block ((xaxist7) *1.,51le“lCyaxist+3) eller (xaxist+l3)*1.-Slleml(yaxise3)21.)3 
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1081 Block ((Cxaxise13)*1.,51l.-(vyaxist3)*e1l.-€xaxise7)t1e/511--Cvaxis~3)*1.)3 
10Ge Sloekt(xox15°13)41.,9511.—=(yaxist]3)*1.-(xaxis—-7)*1.,511."(vaxist7) *1.)3 
1083 block ((xaxist7)*1.,-Sl1).-Cyaxistl]s)*1.,(xaxistl]3)*1.,51).-(yaxist7)*1.)? 
1084 color(eclass)? 

1oe5 dfltcolor=class; 

1086 OrintalO0,xaxis-3.0,Sl1l.“(yaxist22)+3.0,"%a",point=7)3 

1087 Dreak; 

1088 } 

1089 return? 

1090 } 

1091 

1092 

1093 

A eos eckt3(xaxisryaxis,total,clece,c3rcd4scSscbrclreciass) f{ 

109 


1096 switen (toral) { 
1097 case 0: 


1098 break; 

1099 case 1: 

1100 color(c¢cl); 

1101 block((xaxise3)*1.,S1l1.-Cyaxist3) alee (xaxist3) x1.-Sl11.-(yaxis-3)%*1.)3 

1102 break, 

1103 case 2: 

1104 color(¢el); 

PLoS block ((xaxis-3)*1.,Sl1l.“Cyaxist3) xeleop(xaristd)a1.-Sl1.-(yaxis-3)*1.)3 

n1os6 color(c?); 

rio7 Cloce((xaxis73) *1,.,-,S5lleeCyaxise7) *) oe (xaxistd) *1.,Sll.e(yaxisr13)*1.)2 
1108 break; 

1109 case 3: 

1110 color(cl); 

Pid nloc«((xaxise3) e1.-,S511.--l(yaxist3a)eler(xaxist+3) *1.,-S511."-€yaxis-3) *1.)3 

Lille color(¢2);3 

1113 olock((xaxise3) *1.,511) --Cyaxise7)xlep,(xaxist3)*1.,511eeCyaxisel3)*1.);3 
1114 ecolor(es): 

PLS plock((xaxis-3) *1.-Slle-Cyaxist#l 3S) ele (xaxist3d)*1.-S1l.9l(yaxist7)*1.)3 
isl oreak? 

1117 case 4° 

1118 color(cl); 

1119 pDlock((Cxaxise3)*1.-,S51l.-(yaxist3) «le, (xaxist3) *1.,S5ll.-(yaxis~3)*1.)7 

1120 color(ce); 

Liel Dliock((xaxis-3) *1.,S511e-lCyaxise7)*lep-(Cxaxist3)*x1.-,Slle-(Cyaxis-l135)*1.); 
lied color(¢c3)?3 

1123 Dlock((xaxis-3)e1.-Sll.-Cyaxistl3)*1.,-(Cxaxist3) x1 .-Sl1.-(yaxist/7) a1.) 
L124 color(c4); 

Pi2s Flack ((xaxist7) «41.-511--Cyaxist3) eee Cxaxist lS) ete. ,Slleelyaxis~3)*1.)2 
L126 nreak; 

le 7 case 5S: 

1128 colar(ecl)? 

1129 Oloex€Cxaxises) ele rSlleml(yaxists) eee (xaxiste)*1e-Sliew(yaxis~3)*1.)2 

1130 calor(e?): 

1131 hlock(Cxaxises)ebe-Slleel(yaxise7)*elee(Cvraxist3s)*1.,511 °C vyaxisel3)*1.)3 
ise color(c3)3 

1133 Rlock((raxise3)*#1e-Sllieml(yaristl ls) tier (Cxaxist3) ele p-Sllieml(vyaxist/)*1.)7 
1154 color (es); 

VSS tleck((raxrist7) *1.-511."-(vaxist3) aloe (xaxistl3)*1.,511.2°(vaxise3)*1.)3 
1136 Soror.es), 

1137 mhock((xaxisel3)*«1le-Slloe(vaxist3)*lee (Cxaxise7)*1.,-511--(vaxisn~3)*1.)3 
ey ad break; 

1139 Case 63 

1140 color(el); 


gyi 





trans jraoh.c Paqe 20 Fei Feb 8 05:01:00 1980 


1141 plock((xax1s-3)*1.,511.=<Cyaxis+3)*1.-(xaxist3)*#1.-Sl1.-(yaxis-3)*1.)3 
1142 color(ce); 

1143 block ((xaxis-3)e1.,Slle-Cyaxis=7) ele, (xaxists) e1e-Sllerl(yaxisel3)el.)3 
1144 eolortcs); 

1145 block ((xaxis-3)*1.,Sll.-Cyaxist] 3) ele, (xaxist3)x1.,S11.-(vaxist7)*1.)3 
1146 color(¢4)?; 

1147 block((xaxist7)x1.,Slle<Cyaxist3) eller (xaxistl3)*#1.,S1]le“(yaxis-3)*1.)3 
1148 color(¢S); 

1149 block(Caaxismi3)*1.,511l.<Cyaxist3)}tleop(xaxise7)*1.,511e-lCyaxis~3)*1.)3 
150 eolor(ceé); 

tet 5 1 block((xaxise-l3)*«1.,Sll.e-fyaxistl 3) eter (xaxis-7)*1e-Slle-Cyaxist/) *1.)7 
else break? 

iS 3 case 7? 

1154 color(cl); 

1155 block((Cxaxis<3)*1.-S11l.<Cyaxist3a) eller (xaxist3)e1e,Sl1.-(yaxis-3)*1.)7 
1156 color(e2e); 

7 block (€raxise3) *1.-Sl1l.“<Cyaxis-7) «lee (xaxist3a)a1-,Slle-(yaxis-13)*1.)3 
ss eolor (cs); 

HiS9 Block((xaxisw3)*i.-,Sli.-(yaxisti3)*1.,€xaxist3)} *1.,5t].elyaxist7)#1.)3 
1160 eqolor(¢4); 

6 1 block ((Cxaxist7)*1.,-,Sll.<Cyaxist3)} elee-(xaxistl3)x1.,S11.“<Cyaxis-3)*1.)3 
Vie6e csoloc (eS); 

1163 block ((xaxiseld)*#1.,S511.-Cyaxis+3)ele,(xaxiso7)*1.-,511.-Cyaxis-3)*1.)3 
1164 color(c6)3 

1165S MlockG(Cxaxis-13)*1.-51l.-Cyaxistl3)*leeg(xaxis-7) *1.-,S11.-Cyaxist7)*1.)2 
1166 color(c/);3 

1167 block ((xaxist7)*1.-,Sll.-Cyaxistls)elee-(Cxaxistl3a)*1.-,Slle“Cyaxist/7)*1.)3 
1168 break; 

116° default: 

1170 overflowtbl (ctroverflow] (0) =xaxis; 

ay 1 overflowtbl (ctroverflow] (1)] =yaxis: 

1172 ectroverflont+;: 

Wie? 3 color(cl)? 

11734 block({(xaxisw3)} e1.-S51le-(Cvaxist3a dealer (xaxist3e)*1.-511."-(yaxis-3)*1.)3 
lees eolort(ced): 

1176 block(€txaxis=3) *1.,S511le-Cyaxisa7)elep(xaxist3) *1.-SlleeCyaxisel3)*1.)3 
Laz 7 color(¢3); 

1178 hlock((xaxise3s)}*e1.,S511e-Cyaxist 3) tlee(xaxist3) *1e.-511.-“-Cyaxist7)*1.); 
1179 color(¢4)3 

1180 hlock((xaxist7) x1le-,Slle-(vaxist+es) elope (xaxistl13)*1.,-Sll.-Cyaxise3)*1.); 
1181 color(¢S)? 

1182 block ((xaxisol3)*1.-Slle-Cyaxist3)*e1ee(xaxis-7)*1.,511.-Cyaxis-3)*1.)7 
1183 eclor(ct); 

1184 block (Cxaxisel3)e1.-,S5ll.9eCvyaxistl 3) eloee-(xaxiso7)41.,511.-Cyaxist/7)*1.)2 
118S eqlor(Cce?s) 3 

1146 plocek(lxaxist7) *1lee/Slleml(yaxistl3)elee(xaxistl3adeier- S11 .-Cvaxis+/7)*1.); 
LA 7 color(class); 

1188 afltecnlor=class; 

ee PrintaglV,xaxis~5eN Silo l(yaxistec)+3.0, "40", total=-7); 

11°90 break? 

1191 } 

1192 return: 

1193 } 

1194 

1195 

11960 reset() { 

1197 /x reset function for successive network iterations */ 

1196 Int ismarkerxeryrZe 

1199 

1290 if(vers==1 3: vers==e) |< 


ILS) 
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1201 
1202 
1203 
1204 
1205 


1206 


1207 
1208 
1209 
1210 
1211 
l2ie2 
1213 
1214 
t2)> 
1216 
1217 
126 
Felg 
1220 
1221 
1222 
t2e3 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
i255 
1234 
tea s5 
1236 
1237 
1238 
1239 
1240 
12e4l 
1242 
1243 
1244 
1245 
124o 
1247 
1248 
1249 
1250 
125! 
1252 
1253 
1254 
L255 
1256 
1257 
hess 
L259 
1260 


for list0s7i<nbrplotsite) { 

colorl14); 

x=linktbl (il (1) 3 

yslinktbi (i) l2)3 

Z=linktol (1) (3)3 

if(z==0) { 

block ((*=3)%1.,511 .-€y=7)*1.-(x+3)%#1.,511.7(y713)*1.)3 
block C(x<135) 41 i751) ce Cy tts) 410, (x%413)*1.7911.-(y~5) *1.)3 
} 

else { 

block ((x-lO)*«1.,S11-2Cye2)elegx*1e-Slleo(yw10)*1.)3 
block((xelo)e1.,-SllemCy+190)*1.,x*1.,S511.9(yt2)*1.)3 

} 
} 

) 
else { 

forlis07i<tbletraJri+¢e) |{ 

color(14); 

xSuniauetol (il (1) 3 

y=unixjuetnl (i) (2) 7 

Z=uniauetol (1) (3) 37 

Titeen ). { 

block((x-3)21.-511 9-€Cym7)*e1o.e(xt3)*#1.-511 -e-Cyol3)*1.)2 
block ((xe13)*1.-S511--Cytl a) eloe (xt 3) *1.,-511.9Cyod)e1.)3 
} 

else { 

nlock((x216)*1.,S11.2lCyoe2)eloeex*1le-SLI1ee-Cyr10)*1.);3 
block((Cxewlo)*1.-,511 7 CytlO)elepxt#1e -SI1.-2Cyte)*1.)3 


retufn: 


trmiivtet(tfiag) t 
int flaarhsrirvinoOsr jerks le NMeNrONr,OUtOrOt hehe Se Xe XXe Vr yye 


for (hsO0rh<centrl (OO) sheet) |{ 
toe=fileed; 
for(jrorj<Cfirinalhlel)s j++) |{ 
nne+e?7 
} 
iflon=(po2->trnolot)==1) { 
x2 (boeo>xxcord); 
y2z(noe=>vvcord); 
mint tlag==! $1: tflaass2) eslor(ll), 
else color(15); 
seamnt(xpye?I,er,vtel); 
lo(ho2ertrnien); 
kK=(hpeer>tracter): 
for (isNri<lsie++) |{ 
charac (( x 72t( 8+) eve2Gsnsmesnthtli a? 
k++; 


if(tflags=1 fi tflaa=s=3) { 
if(tflaq==1) color(11);3 
else color(14); 

flag=0; 
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1261 
iteoe 
1265 
1264 
1265 
1266 
1267 
1268 
reo? 
1270 
1271 
1272 
1273 
1274 
he/> 
12/6 
ter? 
1278 
res? 
1280 
1281 
128e 
1283 
1284 
1235 
1286 
12A7 
1288 
1289 
1290 
1291 
Wet? 
1293 
1294 
t295 
1296 
he? 
1298 
eo? 
1300 
1301 
130e 
1303 
1304 
1305 
1306 
P307 
1308 
150°? 
1310 
131) 
ale 
513 
1314 
1315 
1316 
eS ile7 
1516 
es 19 
1320 
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m= (Oe => 1mt nn): 
r=iotbl (nm); 
forli=Os7i<rszitt) { 
Ino=1oth) (mel)? 
for(j=9; j<nmorplotsj++) { 
ifCino==Hlinktbi{j} (0) ) { 
xx=linktbl lj) C1)3 
yy=linkto) (j) (2); 
if€(flaq==0) { 
if€xx<=x) flag=t7 
else flaaze; 
sflagih})=flaq; 
} 
if(flaa==1) intrnasi(xxryyexey)? 
else intrns2(xxsyyrxey)? 
j=nerplot; 


m+; 
} 
) 


TRGetlag=e=e 3: tflagsss) { 
if(tflaa==2) color(ll); 
else color(14); 
n=(bdoe=routte/n): 
s=iotbl (nl; 
for(iz071i<srit¢t) { 
outo=iotol intl); 
for (jz=9s j<nhrolotzjye+) { 
if(outozflinktolfijyji {0})) f{ 
exeslinktol (jy) C102 
yvy=linkeol ij) (2); 
if(sflag(h}==1) outrnsl(xxryyexsy)? 
else outrnse(xxsyyexsry)s 
j=norplot; 


trnslink() 


flaarieINOeg jr ke laeMe Ns ONs OUT OeOt hehe So Xe XXeVeyY? 


hoesfilec: 
whilelgotr=a(hn2=rtrannotr)y$s0) { 
iflon=(hoe=r-trnolot)==1) { 


x>(bo2ee2>xxcord) 
y=froe2e>vvcord):; 

en lorc15); 
seannt(x,yee0rursyted); 
=(boe=>trnienr): 
k=(bo2->trnonter); 

for (isAzi<leiee) { 
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1321 charac((x-8+(8i)),y+24,names(k+1)} )3 
132e ket; 

1323 } 

1324 

1325 color(14)3 

1326 flaq=03 

1327 “me(bn2->intern)3 

1328 r=iatbl {m)3 

1329 for (izOzi<rsy4+) { 

1330 ino=ioth) (m+l) ? 

1331 for (j=07j3<nbrolotsj+rt) { 

1332 iffinozzlinktbIl (j) (0)) ¢ 
1333 xxslinktbl (j) t1)? 

1334 vy=linktol(j) (e); 

1335 if(flag==0) { ‘ 
1336 if(xx<=x) flag=l; 
1337 else flaaz=e; 
1338 } 

1339 if(flaqs=1) intrnsl (xx-eyvexry)? 
1340 else intrnse(xxryyerexsy)? 
1341 j=norplot; 

1342 } 

1343 } 

1344 met; 

1345 Ly 

1346 : 

1347 n=(ho2=->outtrn): 

1348 S=iotol in); 

1349 for(iszQsi<szit+t) { 

1350 dutpziotbl Inti}; 

1351 tor(jr0sjendrolotrj+t) { 

1354 if(ouroszlinktol{j} (0}) { 
Ps55 xxSlinktbl (jl) (1) 

1354 yyv=lin«tbl (j) (el? 

1355 if(flaqg==1) outrnsl (xxsyyexry)s 
1356 else outrnsel(xxryvexryde 
1357 j=nbrolot; 

1358 } 

1359 } 

1360 n+t? 

1301 } 

1362 } 

1303 ppeotts 

1364 } 

1409 raturns 

13660 } 

1367 

1368 

1469 intrnsllxrrvvexey) f{ 

1370 int inputs 

1571 

$72 if(xx<(vw-rl2)) { 

5S if(yvy<sy) { 

1374 if(vyz=y) inout=0; 

5 5 else innut=t; 

1376 } 

1377 else inout=23 

P37e } 

1379 else { 

1380 iflyy<sy) inout=4; 
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1381 else inout=33 

1382 } 

1383 

1384 Switch Cinput) { 

1385 case 10: 

1386 seagmnt(xxtlosr,yy,xeley)3 
1387 ; rahtarrow(x-l,y)? 

1388 break? 

1389 case 13 

1390 segmnt(xxtler,yvtlerxrler,y-8)3 
1391 segnnt(xele,y*8,xe7l,y78)3 
1392 rahtarrow(x-l1l,y78); 

1393 oreak; 

1394 case 2: 

1395 segmnt(xxtler-yy*le,xrlervyt3); 
1396 segnmnt(xele-,yt+Sexel,yt+8); 
1397 rahtarrow(xel,pyt&)3 

1398 break; 

1399 case 3: 

1400 seannt(xxel2s,vyelesxerleryt+36)3 
1401 segmnt(xelervelbsx-leyt16)3 
1402 lftsemi(xelers,yvyt+26)3 

1403 rghtarrow(x-1,y+16); 

1404 ; hreak; 

1405 case 4&3 

1406 segmnat(xxele2ryytl2sxrle,y736)3 
1407 seamnt(xele,yrlosxelryr7lb)3 
1408 l¢tsemi (x*l2syr-26)3 

1409 rghtarrow(xel,y716)7 

1410 break; 

1411 } 

1412 return; 

1413 } 

1414 

1415 

1416 rghtarrow(xrv) { 

1417 

1418 seaqnnt(x*4, 774 xry)? 

1419 segmnt(x-4rsvt4sxry)? 

1420 return, 

1421 } 

1422 

1423 

1424 lftseni(x,v) { 

1425 INt ojoks 

1i26 double sort(); 

1427 : 

1425 for («s9e<<llezkr4) f 

1429 te(ve(sart (L990 ,eok en) ))3 

1430 jz=(veCsart (lOO .ekek)))2 

a3 1 dot(re(«/2.),511.271)% 

1332 jot (xe(k/2.),511.°j))2 

1433 r1f(«>4) { 

1434 aot(xe(k/2.)-,S511.°122)3 
1435 dotlx\(«/2.),S1l1l.e1el de 
1430 tatlxe(k/2ede 51 1Lecttd de 
1437 dot (x-(k/2.),S11.c1%2)2 
1438 dot l(x«e(k72.)/-SI1.ej272)2 
1439 dot(xe(K/2.),-S11.ejel)s 
1440 dot(x-(k/2.),511.ej +l)? 
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1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1485 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 


Got(x=(«72.),511.=j+2)3 


} 


returns 


} 


outrnasl(xxsyyexry) { 


Int output; 


if(xx>(x4+12)) { 
if€yy<zy) { 
if€yy==y) outour=0; 
else outout=1; 


} 
else output=23 
} 
else { 
if€yv<=yv) outrput=s43 
else outout=3; 
} 


Switch (Coutout) { 
Case 0: 
segnnt(xtisysxx*20s,yy)i 
rantarrow(xx=20,yy); 
oreak; 
case 1: , 
seamnt(xtle,v78,xx 728, yyt8);5 


seamnt (xx28syvthepxx-20,yy+8); 


rantarrow(xx-20,yy?8); 
segmnt(x+le,yrArxtle,y78)3 
Dreak; 

case 2:3 
segnnt(xties,v+8,xx-28,yy78)2 


seamnt (xx Cbs yyrAgxx=e0,yy78)3 


rghtarrow(x«x-20,yy78)7 
seamnt(xtisy+8sxtle,yt8)i 
break; 

case 3:3 
seqnmnt(xttsvtlosxt+ler,velo)s 
seamnt (xtlesytsboxxteksyy=8)3 


seatnt(xxt2bsyvyrhgxxt 20, yyrG)7 


lftarrow(xx+20,yyrA)3 
rohtsemi(x+ier,yt+eo); 
oOreaks 

Case 4: 
segrnt (xtleyrtlosx+le,vyr7l16); 
searnt(xti2s,yrsoexxtea,yvyt8) 


seqmnt (xxt+ePevythsxxt20s,vyt8); 


lftarrow(xxtev0s,yvt®)s 
rohtsemil(xti2edrs,yv7co); 
oreak, 


returns 


} 


rghtsemi(x,y) { 


int isjrks 


143 


1980 





transgraph.c Pace 26 Pei reo 6 052017200 > 1760 


1501 Gouole sart(); 

1502 

1503 for (kes k<lleneeor) { 

1504 1 = (yel(sarte(1l100.ekek)))2 
1505 j = (ve(Csart (100.“kek)));2 
1506 aot €x¢(n72.)7511.-1)3 

So got (x*t(k72e2.),-511.=j )?- 

1508 1f(e>6) { 

1509 JSot(x+(k/e2.) -Sll ceived); 
15170 dot(x+(k/2.),S11.c1-l); 
1511 dot (ce (ke /e2.)eS0ieritl): 
1sie dowtxt(k/e.) S11. e1te); 
fSs dot(x+(k/2.),S11.-je°2); 
1514 Qot(«t(k/2.),S11.-ejol); 
1515 dot(x«+*+(k/2.),-Sl1l.-j +1); 
1516 dot (x«+(k/2.)-Sl1l.*jte); 
iSi7 } 

1518) ) 

1519 return: 

1520 } 

1521 

1522 

1523 lftarrow(x-y) { 

1524 

1525 seagnnt(xt+t4,yr4sxysyy); 

1526 seagnnt(xtls,ytheuyy)? 

1527 return: 

1528 } 

S22 

1530 

1531 intrns2(xexrvyexev) { 

153e int inout? 

1533 

1534 if(xxr>(x+#le)) { 

1535 if(vy<=yv) { 

1530 iffyyssy) inout=0;7 

1537 else inout=I; 

1538 } 

1539 else innut=2; 

1540 ) 

1541 else { 

1542 if€yy<=y) inout24; 

1543 else inout=37 

1544 } 

1545 

1546 Switcn Cinout) { 

1547 case 0: 

1548 sernnt(xxetoryvexti«y): 
1549 lftarrow(xtley)? 

1550 hreak; 

15S! case 13 

1552 seannt (xxeleéryytlerxtlery7e)e 
1553 seanmnt(xtl2ryoAextiszyond)s 
1554 lftarroa(xtleyrA)e 

1555 break; 

1536 case 23 

1557 seamnt(xxeleryvelerx«tics,y+8)? 
1558 seamnt(xtlervtaygxtteytA)e 
1559 lftarrow(xtl,y+8)> 

1560 oreak; 
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1561 case. Se 

1562 seannt(xxtteés,yvele,x+le,y+36)3 
1563 seamnt(xttes,ytlosoxtleyt+16)3 
1564 rantsemilxtle,y+26)3 

1565 Tftarrow(xtleyt16)3 

1566 sreak; 

1567 case 43 

1568 seamnt (xx+le,yytl2s,xtle,y-36)3 
1569 seannt (x+1]l2,veloOsextley-16); 
1570 rahtseni(x+l2,y-26)3 

ie 7 1 lftarrow(xtlsy-16)3 

1572 oreak: 

1573 } 

1574 return? 

1575 } 

1576 

1577 

1578 outras2d(xxsyvexey) { 

fo79 Int Output? 

1540 

1581 if(xx<(xel2)) ¢{ 

1582 if(yy<sy) { 

1583 it(yv==v) outout=0; 

1584 else outout=1; 

1585 } 

1586 else outout=23 

1587 } 

1588 else { 

1589 if€yy<ty) output=43 

1590 else output =33_ - 

1991 } 

1592 

1593 Switch (Coutout) { 

1994 case 03 

1595 seamnt(xrtlryexxte0r,yy)3 

1596 lftarrow(xx+20,yy); 

1597 break; 

1598 case 1: 

1599 seqgmnt (xeler,yrhsexxtedsyyt&); 
1600 seannt(xxte2bs,yyt+h8,xxt20,yyt8)? 
1601 lttarrow(xxt20,yy%#8)3 

1602 seannt(xelr,y-Asxeles,y-3); 

1603 break; 

1604 case e: 

1605 Seamotixeles,ytS,xxted,yy-8); 
1606 seamnt (xx tebryyeBsexxt20,yy-8)37 
1607 Lftarrow(xxrt20,yy=-8)3 

1608 seamntix-lryt8sxrles,yt+8)? 

1609 break, 

1610 case 3: 

1611 seanmnt(xeleytlOsxerlersytlo); 
1612 seatnt(xel2syts6y,xx-28,yy-8)7 
1613 seamnt (xx-28ryye5, xx -20,yyr8)3 
1614 rahtarroal(xx-20,yy78)? 

1615 lttseni(xelesyt2o); 

1616 breake 

1617 . case 4: 

1618 seamnt(x-lreyctlosxeledr,yrl6)3 
1619 seamnt (xelesy~36rxx-e8syyt8)3 
1620 segmnt (xx-cBs,yytPh,xx-e0,yyt8);, 
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1621 rghtarrow(xx-20,yy+8)-; . 

l62ee lftsemi(x-l2-s,y-26); 

1623 break; 

loe4 } 

1625 return; 

1626 } 

1627 

1628 

1629 coltab() { 

1630 wnt V2 

1631 

1632 V=11*16;7 

1633 WeGdeolt() t+,15,15,15); 4x color 9 *«/ 

1634 lodcol(i++.-9,10,0)3 /x color 1 a / 

1635 lodco! (1++,15,0,0);3 /n color e xf 

1636 logeo!(1++,15,15,0)7 /e color 3 x/ 

1637 Fodocol(i+#712,0,12)3 4x color 4 x/ 

1638 lodeo!l (3 ++,5,-5,12);3 / color 5 af 

69 lodeol (it+.6,6,5)3 Je color 6 */ 

1640 lodcollitt,.5,3,3)% /* color 7 xf 

1641 lodcol litt+s10,0-10)3 /x color 8 */ 

1642 loccol (it+#+.12-5,5); Ze Color. 9 27 

1643 lodecl(itt+,5,5,3)? /x color 10 */ 

1644 lodeollitts,12-12,0); TA SEC GOR) 87, 

1645 lodcol (itt+,5,7,3);3 /x color le */ 

1646 lodcollit+.,5,48,2)3 /e color 13 k/ 

1647 lodeol (it+,-0,0,6); fr color 14 */ 

1648 lodcol (itt,.6,0.-0)3 4x color 15 */ 

1649 return: 

1650 } at 

1651 

1652 

1653 PRR RRR RR RRR RR RRR RRR ARERRRKERRAREER RAK RAK / 
1654 [J ueRnRek KES aaktkeeekak/ 
1655 J eeRKKaAK KS END OF PROGRAM TRANSGRAPH.C 1 *#kxxxeaan/ 
1656 [J RAKKRRAEE keeexkxekxn/ 
1657 FRR RR I MRR KERR RRR UREA ARR RRARAKRA RR KEKE R RRA / 
1658 
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JRMRERREREKRRRRERAKRRTK RARER ERRERKRERERRARARR ARR / 


PRR TT RT RIK RAK KIRARKRA DRA aa / 
J RaKHAKRKE 
LRaRKRRRKKK 
Leama KRKK 
[RKKKRAKKE 
Juerakaerenrer 
luke kkeen 
JukkkaKKKKS 
LaaKRaKAKKER 
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Rhkkenazexanrrf 
kaereaknaar/ 
khaeeaknan/ 
kkakknaenanf/ 
thhkeeereera/ 
hkeketkeaeazn / 
Raekeaaknank/ 
kreaekkkenax f 
Rkkeeknaeranef/ 
kereknanazkn/ 


TKK RIK RH TOTO TTT TOI IRR RAR IRKRADKRA KR ARR/ 


TR RRR IR III KK I IKI RRA AKAIKE AAS KAKA KA / 


PL RRKREKEKKKEIRRERRRAARREKKERRAEAAKARA KAA RAK/ 


EXTERNAL DECLARATIONS 


SRR AA KKARA RAK KAAS 


leaker 


/xexe LITERALS x2xxx/ 


tdefine 
RBdefine 
SjJefine 
&Sdefine 
tdefine 
Sdefine 
8dJefine 


header 
sto 
fired 
frames 
hounds 
upper 
limit 


/xxkxk STRUCTURES 


struct { 
mnt etriis 
int nameotr; 
Int marker, 
int xcord; 
int ycords 
int olot?; 
mnt Jlensth; 

}filel loounds), 

struct { 
int ectrlie> 
mt trnotr; 
int Interne 
mt outterns 
int xxcord; 
int yycord: 
int trnplot: 
int trnilen; 


4 
10 
100 
150 
360 
2000 
3600 
kaeat/ 
/* 
Jr 
Jr 
Jn 
fx 
Jn 
/* 
hole 
Jr 
ft 
Jr 
Jn 
/% 
fx 
Jn 
Jr 


/* 
/* 
/* 
fn 
/x 
/* 
/* 


the max 


Gefines 


raererxf 


contains contro) 
the standara 
f of transitions: 
indicates the 
bounds on max 
yotb]) 
defines names 


Fas to 


total 3&8 of 
2 of nodes 
max lenath 
max length 


incut read buffer 


bytes read in 
length 

firea in 1 
network states 
or transitions 


frame 


4x data structure information on net nodes ee 
store control char not used in program eee */ 
INdEx COUMSAMES GEE SY aeicelele oo oes o6 oc 6 0-6 we ee *7 
initial marker state of the network ceccee */ 
x COFrO lMat @ co tmOltee 6 1s csi 6 6b 6 6s ooo wee? 
VECORCINS CE Of CO aGOr ese socie cic pwclse sec cee NS 
whether or not olace is to be olotted .... */ 
Tenath of name associated with place eeece */ 
/* oointer Into data StPUuCtUrFe ceceeececescce 

/x data structure information on transitions. 
store control char not used in croqram eeu */ 
1 NGEGNEUO Names Lan h AY a cleleieis etsle sc clse cs 6 else ee oo S/S 
pointer to ingouts for a CFANSIRION ceccoese */ 
pointer to outouts for a tCraANSICION ccoecee */ 
x COFQIMate sot SC ROMS NC VOM secs c ccc cece cece */ 
VC ORG MaGeurO tat Cost OMe icc cc cle 66 oes sees 87 
whether or not transition is to be olotted */ 
length of name associatea with transition */ 
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61 
6e 
63 
64 
65 
of 
67 
68 
62 
70 
71 
Te 
73 
74 
ZT 
76 
77 
75 
79 
80 
8} 
Be 
83 
AG 
aS 
86 
87 
88 
39 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
10e 
193 
1Q4 
105 
LS 
1 7, 
198 
109 
110 
td 
112 
is 
114 
ey es) 
116 
iy 
bis 
119 
120 


fi) 


funn 


int 
int 
int 
int 
rn t 
int 
int 
int 
wnt 
int 
int 
int 
int 
int 
int 
Pmt 
int 
int 
Trt 
int 
int 
int 
int 
mmc 
int 
mat 


a 


char 
char 
cnaar 
cnar 
char 
enar 
char 
cnar 
char 


Page 2 Fri 


ec bounds], Ore 5 


® 


INTEGERS xaxx/ 
alsaceradss, 343 
nufferlrounds); 
cntrlél); 
ctroverflow: 

Sf teolrors 

fdfnuf; 

fdgbuf? 
firinglbounds]); 

1CtUR? 

yevents; 

iflaaq-e 

iotol (umoerl; 

ktm frame; 

linktol (bounds! (413 
norplote . 
noytes(e); 
overflowtol (fired!) [2} 
set; 

tabcount?: 

oC. tins 

uniquetol (fired) (4); 
verses 
xinstorelfired); 
xoutstorelfired); 
yvinstorelfired); 
youtstorelfireadl]; 


x CHARACTERS xxex/ 


couf (std) 
deuf (sta 
fouf (sta) 
apnuf (std) 
nanes(limi 
sern? 

tbuf (std); 
vbuf (std); 
timing, 


ee Ge Be Be 


t) 2. 


Feb 


Jn 


J 
/x 
/ 
a 
/* 
J 
J 
fx 
/* 
/ 
/ 
/n 
J 
ft 
/* 
ft 
pias & 
/* 
J 
/* 
co? 
/ * 
/* 
/* 
/* 
/* 


/* 
/ 
fx 
/* 
J 
/% 
/« 
f/x 
/* 
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oointer into data st 


Global storage for e 
buffer into which ea 
variabdle containing 
kKeec track of nodes 
a default color for 
file gescriotor fer 
file descriotor for 
Storaae into which f 
counter passed to a 
number of non- 3 dis 
counter for the inte 
forms inoutetosoutou 
counter for the 
version 1 8&8 2 screen 
counter for number o 
store count fields f 
data structure to st 
user selecte@a conrac 
counter for link rev 


ructure 


ach ‘datemstructure: 4. 
en frame VS read 4.6% 
# transitions fired . 
overflow status 
indicatina overflows 
RUN|#-Y files 
RUN]|==Z filles 1.2. sce es 
ired places are read 

function 
playable nodes 

reuot mechanism 
t relationshio 


@e@ee@ee2e#@##?@#?#?#8% 28 @ 
@e@ee@ee?#@ 
@eee#e 


Nodes locations 
f disolayed nodes 
or data structures 
ore overflow locat 

Qraphics screen . 
ert 


iterations of the network. 


IONS 


a counter for version 3..reset Conditions. 


reset table location 
user selected oaotion 
coordinates retained 
caordinates retained 
coordinates retained 
coordinates retained 


store of file 
store determi 
buffer to store name 
buffer to store name 
character array for 
option variable for 
ouffer to store timi 
buffer to store vers 
variable to set 


buffer 
ouffer 


JRAKKKARRRERKRHR REAR Ree ee KReER EA / 


tke 


FUNCTIUN “MAIN 


* 


kat 


«x / 


JL RRAARHRAKRRRR RARER Rea KR Ra Ra / 


main 


() { 

extern rubdout(); J 
imat () 3 /* 
derernine(); /* 
disolay(); /* 
select(); /* 
preoare(e2); /* 
arawnode(); /* 


dec} 
reaa 
veri 
diso 


oreo 


s for version 3 ee 


for link revert eece 
for link revert ecec 
fOr Tink FEVERU “c.< « 
for link revert eecece 


to be executed cece 
Ning Gata scan eoeecve 


Ot “second 1 lew 6. ces 
Of SCR id of 1 ess cc ccts 
AOOe «ae lS. <6 seis sc eve 


disolay to the screen 
na variable 
ion selected 


Droaram execution timing 


ape’ cubout “al oba lly sss c 0 cc cece sen es */ 
STOW Get 8 uaere ter eie stare tetcrel ateleve so se ese eeew 87 

fy if user wants to See data structure */ 

ave WAOUL, COmeit mse sistershercieieisc esse ee oe %S 
select version of simulation & aenisco set */ 
ARE GENESCO=COMPaAC Ge sleccccccccescsscs */ 

x / 


draw network nodes on conrac 


148 


& / 


xf 
x / 
x / 
x / 
x / 
% / 
x / 
x / 
x / 
x / 
«/ 
xf 
* / 
« / 
x / 
s/ 
x / 
« / 
x / 
x / 
x / 
x / 
a / 
a / 
% / 
x / 


x / 
x / 
a / 
a/ 
*/ 
x / 
x / 
x / 
* / 
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| places(); PREVeRPItTyY Cormect NOdeS drawn ~.ce.ceceecececee #7 
122 Vink ); /* function deoicts network connectivity eee. */ 
123 imark();5 f/x starting status of network nacketsS seecocce */ 
124 Elegance, FUDOUt)+ /* sets "BRK® a5 INteRFUOCT i<iccsccececencccse */ 
125 markina(), /* successive iterations of network flow cesoe */ 
126 gnfini(l); /* closing out grachics facilities wevccccccee */ 
le7 

128 } 

129 

130 

131 SeRRRAKRKREAKAARRRERREKRER RARER RR RKK KKK / 

132 /xxxr PROGRA™4 FUNCTIONS txxk/ 

133 Seer ae aKKAKRREARARARA KEKE RAK RRR Kaa / 

134 

135 

136 pauseloeroid) { 

137 /* function necessary as sleenp() not compatible witn signal() */ 
138 int irjek-s 

139 

140 Smet ***>>1Nterruct.cccee J? 

141 forli=071<0eroidzi¢+¢+) { 

142 for( jeu; j<400rjee) { 

143 for(k=07«<1000sk++) { 

134 : } 

145 } 

146 } 

147 Omimt | ( ***>>nwSgitececce” )# 

148 return; 

149 } 

150 

151 

152 rubout() = { 

1S5 /x function enables the ‘dork’ key as the interrupt signal */ 

154 char halt; 

55 

156 space(2); 

157 printf 

12 (“"xxk>>> received sianal...frame number %d...-<ret> to continue \n", 
159 Ciflagte)); 

160 Of iatst ' 

161 ("nkt>>> for termination of proarame.e.tyoe ‘bork’ from console \n"); 
162 while (Chalt=aetchar())JS='\n') f 

163 Je dornothina looo */ 

164 } 

165 sional l2srubout); 

lo6 return; 

167 } 

108 

169 

170 soacefreturns) { 

171 emit tis 

172 

173 for (i=03 i<returnss itt) { 

1743 printf ("Na"); 

7 > } 

176 returns 

177 } 

174 

179 


180 init) { 


149 
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181 
182 
183 
184 
185 
186 
187 
183 
189 
190 


191 
poe 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
207 
210 
211 
ele 
25 
214 
21> 
216 
217 
218 
eno 
220 
221 
eee 
223 
224 
Ze> 
226 
eel 
228 
ae? 
23n 
231 
232 
255 
254 
235 
250 
237 
238 
259 
240 
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/x function omens unformatted file & initializes start condition *4/ 
int ar-oufctrecountsfdrisj? 
GCivaicy Cy, ft ¢ 


smace(2); 
orintt("xxre>LINKGRAPH ILLUSTRATES NETWORK SIMULATION MODELS")? 


spacele); 
orintf("*exeerENTER THE NAME OF THE FILE TO BE PROCESSED..BUT Nn 


prinrf(” 

orintf(" 
orintfc(* 
error.ssoac 
orintf(" 


1=0; 
while((c¢ 


"); 

MOTE THAT THIS FILE “UST BE AN UNFORMATTED FILE Nn")3 

PROOUCED AS A RESULT OF EXECUTING simulator.out \n")3 

Bs THE LAST LETTER OF WHICH MUST END IN LETTER *x* \n™); 
2 ; 


kaerae>");7 


=getchar()) $= '\n') { 


couf li) sc? 


i++ 
} 
ebuft(s)= 


bufectr=i 
for(j=07 
qou * 
ic 


} 


fd = ope 

ffoctd < 
orin 
(“xx 
soac 
goto 
} 


If (Ccoun 
prin 
jevents 
al = nby 
a = (nboy 
if (€Cecoun 


orin 


if( (coun 
orin 
ac=nryte 
a=(nbovte 
yr C(ccun 
nmerin 


if€tcoun 

prin 
a3=nbyte 
a=(nbyte 
if((coun 


"NO'? 


¢ 

psbufetrsjrte) € 

(js) Sfoufljleebuf (j)? 

buf (jlss*x') ¢ 

fouf (js) =s'yY'; 

abuf (Cj) ='Z2'? 
abuf(je+llstouf (pj +1) S'v\0'? 
Jsoufctr? 


n(cbuf,0); 
= 0) { 
tf 
RevweGeor Occurred if Ofening filescse...tfyY again” )? 
e(3); 
error; 


t = read(fdrsnbytes,heagner)) != header) 
tf("error occurred in noytes read")3 

= (nbytesf1l) - 1); 

tesli); 

tes(il)-<1)*14; 

r = reait(td,filel,a)) $= a) 

tf("error occured in filel read")3 


‘ 


t=reat(fd-nbvtes,header))!=header) 
tfl("error occurred in nbvtes read"); 
stil; 

s(Jl) -1}*16; 

t=reaan(fd,file2,a))iza) 

tf("“error occurred in file2d read"); 


t=read(fdsnnvtes,reader) )isheader) 
tf("error occurred in heater read")? 
s(1]? 

s(1) +1)*23 

t=reai(fde,iotbi,a)) tsa) 


1.0) 
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24} 
cue 
243 
eu4d 
245 
246 
eu7 
248 
249g 
250 
251 
ede 
253 
e544 
255 
256 
257 
258 
259 
260 
251 
Coe 
263 
264 
265 
266 
267 
268 
262 
270 
e71 
e7e 
273 
e274 
275 
276 
C77 
278 
279 
280 
eB 1 
282 
ch3 
234 
285 
co 
e887 
2&8 
2&9 
290 
291 
292 
293 
e944 
295 
296 
297 
298 
299 
300 


orintf("™error occured in jtotdb! read")3 


if(Ccount=read(fdsnoytes,header))!zheader) 
orincf ("error occurred in header read"); 

a4=nbyteslil; 

a=ntytes(il-el: 

1f(Ccount=read(fdsnames,a))!=za) 
orintf("error occurred in names read")? 


close(fd); 
return; 
) 


determine() { 
Int 7 
cyar de 


space(2); 

Sent tek eer UNCTION "“DETERMINE® 4LLOWNS THE USER Nn")? 

erintt(” TO EXAMINE ALL PRIAARY DATA STRUCTURES"); 
over:soace(2); 

print f 

Geter tir FHI S FEATURE FS DESIRED TYPE 1 IF NOT 0, THEN <RET>"); 
space(2); 

printf (*xxxe>");5 


1703 
while((gatqetchar())Ji=s'\n') ¢{ 
dbuf fijead- 
17 
} 
Gbuf fi} s'NO'; 


1=0; 
while(dbuf (i) $S'NO') { 
d=oaouf li]; 
Switch(d) f{ 
case’Q': 
Scrns'O's 
break? 
case'’l's 
scrns't'; 
printf (*™ee%e=rtISE CONTROL Q wHEN SCREEN FULL"); 
rreak, 
naefault: 
orintf("r*«t=->either blank or invalid entry"); 
aoto overs 
break: 


disclav() { 
int 7 


if(sern=s'1') |{ 


Sak 
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301 scace(2); 

30e bo! = filel; 

303 Serger ***°> FILE! PATS STRUCTURE”): 

304 snace(2); 

305 orintft 

306 ("Infeed & marker _ xcord ycord Siliot length \n")e 
307 for (1071 <als itt) { 

308 DreiimirGmec NC ng Nt 40 Nt “4d Nt 4d \t Zd- Nt Za@ NC \n"s 
309 col=>ctrilrshbol=*>naneotr, bol-=>markerrbol=>xcord, 
310 bpl=>ycora,pnol=>plot,opl=>length); 

311 bol++; 

31e } 

313 

314 space(e); 

515 bee = filed; 

316 peimtt(“*#%2#=> FILE? DATA STRUCTURE"); 

Bil? space(2); 

318 printf 

319 ("Intfeed trnotr inten outtrn xxcord yycord tenplot trnien \n"); 
320 for (iztO071<acdFr 1+4) ¢ : 
321 SmamMcte ace Nt 4o NC 2a \t 40° \t€ 4d NO 40 Nt Aq \t 4d Ne ANn™s ° 
322 poe->ctrie-boe=>trnotrrope=>internsdboe=>outtrne 
323 hoee>xxcordrbod=>yycordrhnoe=>trnplot,ope=>trnlen): 
324 boetrtt: 

325 } 

326 

3e7 space(2); 

328 orintf("*te-> JOTSL DATA ARRAY"); 

329 soace(2); 

330 for (1207 i<a3s ite) { 

331 Sauget. 4.4 0", 10Otol (i) ); 

332 } 

333 

334 space(2); 

335 orintft("***-> NAMES DATA ARPAY"); 

336 soace(2); 

337 for (i=03 1<a44+17 +4) |{ 

338 printf ("kc",names li) ); 

339 } 

340 space(2)}; 

34] } 

342 return? 

343 } 

3a4 

345 

346 prerarel(tyoe) { 

347 /* tunetion gesiarates set, screen size and color table */ 
348 INC Metove 

349 

359 y=0; 

Bol aenisco (set), 

332 erase(); 

353 scereen(0.0,0.9-911.9,511.9)3 

354 setrmoal(tyre); 

555 coltan(); 

356 eelort Cit), 

357 for(nzlern<1sne+) |{ 

358 Eqlor in): 

359 for(tzOrr<Siaszrtt) 4 

360 seannt (Orvets,Sllisytt): 


eS 2 
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361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
571 

372 
373 
374 
oa 
376 
377 
378 
379 
380 
381 

38e 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
a0} 

402 
403 
YOQ4 
Gans 
400 
407 
408 
409 
410 
Qj] 

412 
413 
414 
415 
416 
417 
418 
419 
420 


} 


return, 


drawnode() { 


/* function disolays tyoe % location of network nodes */ 
char ¢c,t*notrehold: 

Int ardeclriolsecountredsentryrNerirsjrKelenodertestsxryr XZ? 
float s; ° 

double sart(); 


bol = filels 
a=0; 
count = 13 


while((test=(cpl-=>nanmeotr))!=0) { 
color(14); 


test++; 
z = &nanes(test] z 
C = 2% 


+f €Cb=Cool->elot))!= 0) { 
Switch (cc) { 
ease. "Is 

nede=l1; 

x = (hol->xcord): 

y = (bol->ycord); 

for(d=07;d<10;de+) { 
seqgmnt(x-lor,yt2tdrxeytetda); 

} 

if(vers==3) { 
notr= &names(testel); 
hola= *noter? 
clribl=atoi(&hold); 
label(x-syrtestreciribls,node); 
color(14); 


else { 
clrlbl=149; 
label(x,y,testrclriblenode): 

} 

linktbl (al (3) =1% 

breaks 

case °0O°3 

node ze; 

x = (f0l->xcord), 

vy = (trol->ycord); 

for (a=tNsa<iNsatrte) |{ 
segmnt (x-lor,yeeedsx,yrerd); 

) 

if(verss23) { 
notr= xXnaresitest+l); 
hald= *notre 
clrlslzatoi(shold), 
lahel(v,y,testrclriblsnode):; 
color(14)-; 

} 

else { 


E52 
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Ge} 
422 
423 
424 
425 
426 
427 
428 
429 
430 
43] 
43e 
433 
434 
435 
436 
437 
438 
439 
440d 
ual 
442 
443 
44ag 
44s 
4u6 
447 
448 
449g 
450 
451 
452 
4593 
454 
455 
456 
4sg7 
458 
4s9 
460 
4ol 
“be 
463 
464 
465 
466 
Ue? 
468 
8469 
u70 
“71 
“72 
473 
a74 
475 
476 
477 
478 
479 
480 
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clrlol=14;3 
label(x,y-testrclelblsnode); 
} 
linktbol Cal (3) =1;3 
break, 
‘'RIs 
node=0; 
x = (bol->xcord); 
y = (ecl->ycord); 
for(d=0r7a<3lezdatt+) { 
seqmnt 
(x-1L8td/4rytlSedextl8-d/4sytlSed); 
} 
clrlbl=14; 
label(x,yrtestrclrliolsnode):; 
break? 
oo 
nodge=0; 
x = (bol->xcord); 
vy ='(hol->ycord); 
for(a=O0;7;da<3lsedat+) { 
segornt (x-1l8sy-1lSta,xtl8sy-iSta); 
) 
if(vers==3) { 
notr= &namesl(teste+l): 
hold= «note; 
clirlbl=atoil&Snold)? 
lapnel(xsyr,testrcirlblsnode); 
color(14); 
} 
else { 
clrlbolel4; 
label(x-rvetestscilriblsnode); 
} 
break; 
eae es 
node=0; 
x = (bpole->xcord); 
y = (nol->vcord); 
for (kzO0;k<19; kee) § 
sok; 
i=(x-Csart(324."8%5)))7 
j=vt+s; 
le(x#Csart(32e4.-5s%5))); 
seanmntlirjrlsj)> 


for («29sec <) 95 k+4) { 
s=k; 
iz(xe(Csart(324.-s%8)))3 
j=vese 
lo>(xe(Csart (524 .-srx5g)))3 
seannt(i,s,jrle jy)? 
} 
if(vers==3) { 
notr = KAnares([testt+l]; 
hold = t«noter; 
clrlol=atoi(l&hold); 
label(x,vetestrscirionls,nooe); 
color(i14)3 


154 
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481 else { 

48e clrilpl=14; 

433 lavel(x,y,testeclriol.-noae);3 
484 } 

485 break; 

486 default: 

QR7 orint f 

488 ("nane not valid identifier"); 

489 soace(2); 

490 break, 

49} } 

492 

493 linktol fa) (0) =count? 

agg linxtobl fa) (1) = x; 

4aQs linktSl tal fel = y3 

496 at+; 

u97 } 

498 COUARt t+; 

499 polt+t+; 

500 } 

501 if€vers==3) { 

502 entry =)? 

503 uniguetol entry) (0) =linktot (0) (0); 

5904 uniaquetnol fentryl Ll) =linktol (0) (1)? 

50S uniquetol fentry) (2) =linkrtbl (0) (2); 

S06 uPpigquetol fentevl (3) =linktel (0) (3)3 

S17 roletrel. 

508 for (itO-i<asitte) { 

509 it €uniauetnl fentry) (1) ==slinktdl Ciel) (1) R& 
510 uniauetnl fentry)] (2) ==linktol li*el) (2) ) |{ 
511 /* do nothing */ 

Si2 } 

$13 else { 

S14 entrvtt; ‘ 

515 uniquetol fentrv) (0lSlinktol Ciet) (0) 7 
516 uniquetdl fentry)] Cli slinktol fi +1) (1) > 
S517 uniquetol fentry) (2l slinkrol (itl) €2l- 
514 uniquethl [entry] (3) slinktol fit+l) (3); 
$19 toletrtts 

5290 ps ox: , 

521 } 

S2? } 

523 rorclot=a,s 

S24 return; 

5¢e5 } 

S2o 

S21 

S°8 places() { 

529 at heipjoke 

530 

S51 if(serns='t') { 

S32 enace(2): 

533 orinet("*exe*mo DATA STRUCTURE LINKTAL °*)3 

534 space (2): 

$35 for(iz0si<nornlotri+¢t+) { 

536 for(nsO0sr<ushete) { 

S37 orintft("<a ~--",linktbi lil) (h))3 

538 b 

539 soace(i); 

S40 } 


Sis 
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Sai space(2); 

S42 iffvers==3) { 

S43 orinet("ree=-oNATA STRUCTURE UNIQUEToL")3 
544 space(2)3 

Sas for(ji=O07 j<tdoletrzjer) { 

$46 for(k=03e<Us ker) { 

547 orintt("%d --",uniquetbIl {jJ lk) ); 
548 ) 

$49 space(1); 

550 } 

551 } 

poe space(2); 

5535 } 

554 return; 

55> } 

$56 

S57 

Soe labeWxxsyvrzzZ-2citisalace) { 

$59 f/x geternines node label placenent in relation to node */ 
560 int fei? 

361 

562 color(elbl); 

543 

S04 Switer (olace) { 

565 case J: 

S06 if(xx>250) { 

567 fneli=zNsi<esi+e) { 

568 cnarac((xxt(224(8*i)))evyrnamesl22)); 
$69 ZZees 

$70 } 

571 } 

S72 else { 

573 for (isAsi<esiet) { 

$74 charac((xx=(34-(8k% i) J) ,yyenarmesi2z) ); 
575 z2t+t; 

$76 } 

S77 } 

578 break; 

579 Gase- >: 

580 if(xx>250) { 

581 for(iz0z;i<e2szir*r+) { 

58e charac((xxt4*(&*«i))J,yyt2,names (22) ); 
583 22+; 

584 } 

SAS } 

586 else { 

527 farli sos i <es ier) §{ 

SRE cnarac((xx=(32-(dti)) J evyternamesl22) ); 
589 22++;3 

$90 } 

S91 ) 

592 break} 

593 case 2? 3 

S94 1ftxxr>259) |{ 

$°S for (isJszi<2szitt) { 

S96 charac ((xxtd+ (Arid) svvelOe-names (zz) ); 
597 Zz++;3 

S98 } 

599 ) 

600 else { 


lao 
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601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
Ol 
bie 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64} 
642 
643 
6u4d 
645 
646 
647 
bur 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 


fort r=031<27;3++) { 
charac ((x«x«-(32-(8xi))),vvy~-190,-names(2z2] ); 


22+; 
} 
} 
break; 
} 

return; 
} 
link() { 


/x function links nodes by information stored tn iotbl */ 
INt areCreINnl sO) ,out (40]} ,olotinl4G) ,nlotout (40); 
INt contentsktreirskeMseMaxinetremaxoutctrs,ls,Or INXsiINysoutxroutys 


color( id); 
content=iotbl (1); 
ktr=tl; 
whilelcontent!=0) {¢' 
maxinctr=inotol (kterl): 
for(i=sO71<contentri++) |{ 
kt ree, 
| Imivi=i1otol (kt r) ; 
} 
ktrt+t; 
COmcent=10trl lktr); 
maxoutctr=iotol {«trl? 
for(i=OFi<contentsrt+et) { 
kt ret; 
out lil=iotbl (keri; 
} 
for l(n=0in<maxinctrsnt+t+) { 
Cater br) =the 
for Claus l<nnrolotrltes) { 
ifCinlo] seszlinktbI (1) (01) 4 
nlotinlol=l3 
l=norplot? 


} 


tor(pz0%n<maxcutctrinptt) { 
plotout fo) =0; 
¢gr(leds,i<anrniortsti++) { 
if#(smut fo) z=zlinkerbi fl) €0}) ¢€ 
clatout oj si? 
Jennraolat, 


} 


for (kt )sc<raxinetrrk+et) |{ 
forlisthii<raxcutctrzitt) { 
if(olatinlk) F211 8X oloroutflil==1) { 
azintkl: 
banaue fil? 
tor (1207 1<nbrplotz1l++) { 
if(linktolf(]]) (O}s2a) f{ 
inxslinktbl ll) €13- 


157 
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661 
66/2 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
104 
702 
703 
704 
705 
796 
797 
706 
709 
716 
711 
712 
713 
714 
ris 
716 
7 ee 
718 
719 
720 


} 


kt ree; 


Content =19ts! (eter): 


} 
returns 


} 


lines(xl,vil, 
int Inke 


if(xl<=x 
ify 


} 
else 


’ 


} 

} 

else { 
if(y 


} 

else 
} 
Seitcrtl 

case 


case 


Page le 


x2ryve) { 


QA3s@rexry 


2) { 
l<sve) { 


if(xt=sx2) 


else { 


} 
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iny=linktbi C(t) (2); 
lenrrolot; 
} 


for(m=0;m<nbrolotimet) { 


} 


ifC(linktbl in) (0) =2b) { 
outxslinktbol (m) (1) 3 
outy=linwktbl (m) (2); 
m=nterplot; 

} 


lineslCinxsinyroutx,outy): 


Inkecase=3;3 


if€ylesy2) Inkease=0; 


else 


{ 


if(xt=sxe) 


Inkease=4; 


Inkease=1; 


else Inkcase=5; 


l<sve) { 


if(viseve) 


Inkeaseze; 


else Inaseases?7; 


Ine«caseto,; 


awoac) 
Oe 


{ 


seamnt ix) r20evisxese20rye)s 


exSxcre(s 


veavec + 


seartantix«r4,vrdexey)s 
seatnt (xrdsgytdexey)? 


Cre3Ks 
ER 


senzatlxls,yloeUsxerveteu); 


x=xeée> 
vevered; 


searnt (xe4svedexepy)e 
seanmant(xt4dsyt4exry)i 


break, 


eo 
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en 
Tee 
723 
724 
725 
726 
7e7 
728 
729 
730 
tol 
732 
733 
734 
735 
736 
TST 
738 
739 
740 
741 
742 
743 
744 
PS 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
703 
Tod 
769 
T&O 
747 
Toe 
7609 
770 
771 
772 
773 
774 
773s 
776 
Ti 
778 
779 
730 


case 23 
sesmmntrlxt=e0,ylex2t20,ye); 
¥sx2+2e0; 
y=yve; 
seannt(xt4syr74egxsy); 
SEAMNC(xtUsgvtUgxsgy}? 
break; 

case 3: 
segmnt (xilrylt+e0,xerve7e0)3 
X=xe7 
veyere0; 
searnt (x*4,y74,xey)7 
seamnt (xt+4s,yr4texey)? 
break, 

case 4° 
seamnt (x1 +24,y1+24,x2-2u,y2-2u)3 
xeu2e-lo? 
veycerl6; 
seanmnt(xs,ytOexey)? 
SeaMAt (x Or Vex y)? 

Seamnmt (x«es24,yeweugxey)? 
break, 

case 5° 
seamnt(x«lt+egds,yl=24,xemedsgyet24)? 
x=xcrlo; 
vivetlo; 
Seatrat (xp ytorxey)s 
seaTtat(xtOrvexey)? 
segunt(xeweigyetou,xsy)? 
break; 

case 6: 
seqrnt (xe 24,yloedsg x2 tet, yeted)? 
x>xetl6; 
y=yerl16; 
seamnt (xs,ytor,xry)3 
seanmnt(xtoryexry)? 
settar( we teotd,vetouexey); 
rFre3k; 

case 7:3 
seatar(xtleete,viteds,ret+ou,y2724); 
x=xe+lo; 
veycerlo; 
SOSTAC xs vrOexry)i 
SEAM (x toevexsy)? 
eem ar (wet Pd gverePUaxevde 
mReaAnR? 


return; 


select () { 
INt tens 
char ve 


scacel(e); 
Oorinté( "tee =>THERE ARE % VERSIONS TQ THIS GRAPHICS PACKAGE \n"); 


orintf(" PLEASE SELECT ONE OF THE FOLLOWING VERSIONS: \n")3 
aqain:soace(2);3 : 
erintfc” VERSION 1 2... PETRI@=NET PACKAGE ....2.6. TYPE 1 \n")3 
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el 
Hsia 
a3 
784 
73:9 
786 
Lon 
788 
789 
790 
791 
792 
79 $ 
794 
n9> 
796 
797 
798 
799 
800 
801 
80e 
803 
804 
805 
806 
807 
808 
869 
B10 
811 
Bie 
813 
814 
B15 
816 
817 
818 
819 
820 
821 
&2e 
823 
B24 
825 
826 
827 


Page 14 Fri Feb 
BrinttC” VERSION coe. c< 
crintft(" VERS TON 5 acre 
n= QO; 


twices:space(2); 


orintt("*ee—->" 7 


ntte 

i = O-; 

while ((€veqetchar()) !s "Nv! 
vouf fi) = v-; 
it¢+? 

} 

vbuf fi} = "N\O°; 

1 = OF 

while(vbuf li) $= ‘NX0') { 


v = veuf fil; 
if(n==}t) { 
Switcn(v) 
case ‘l' 
vers 
break 
case ' 
vers 
break 
case ' 
vers 
break 
default: 
print f 


es = 
fy ee = 66 nt, 
me =e 


tal ee 
~e 


=e 14 WWese fh Me 


& 072992 45 


1980 


PACKET REPRESENTATION 
MULTIROUTING PACKAGE 


Donat 


("xer=e>incorrect version try again:"); 


qaoto agains 
breaks 


he 
} 
else { 
Switch(v) { 
case "~0°: 
set = 0; 
break; 
case ‘1! 
set = } 
preak; 
case ‘e's 
set = 23 
rreac,; 
default: 
orintf 


=e «0 


(“ttee>incorrect 


orinr ¢ 


(" set selection shoulo he O,lrore"); 


n= 1; 
noto twice; 
nreaks 
} 
it+; 
) 
} 
if(m==1) { 
soace(2); 


genisco set 
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try aaain")? 


Vree-e \a 
TYPE 3 N\n")3 
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84} Orintf(™axe-rh0n SELECT THE GENISCO SET YCU WISH \n"); 
842 orintt(" THe Se RGA 1h SE DISPLAYED T0..... \n*);3 
843 orintt(" PeSeSmeogeeltReER SETO, SET! OR SET2 \n"); 
844 aoto twice, 

845 } 

846 return; 

Baz } 

848 

849 

850 imark() { 

851 4x marks imitial state of system by calling asoropriate function */ 
852 Int Orcolourresarxrye 

BS3 

85.4 bol = filel, 

855 afltcolor=3;3 

856 color(afltcolor): 

&S7 colour=e; 

858 ctroverflow=0;3 

859 while (Ce=(Copl->namentr)) $20) { 

860 if(lo=(bol->plot)) 220) {- 

861 Switch(vers) { 

862 case 1: 

863 ivers!i()3 

864 nhreak? 

865 case e: 

866 iverse(colour); 

867 break; 

868 case 3: 

869 ivers3(colour)?; 

870 break; 

871 } 

872 } 

873 fecorireolor!=3) color(3)- 

874 oelt+; 

875 } 

876 color(14d); 

877 printa(0,350.,480.," TIME FRAME = 1"); 

&78 oreread(i); 

879 hilite ()% 

&80 disolat); 

8§1 hold(); 

BAS reset(l); 

8A3 color(13);3 

R84 oveflow(); 

BES prin’e 7(0-3590.,480.,"TIME FRAME = 1%)5 

886 return; 

8R7 } 

BAB 

8&9 

890 hold) { 

BQ} int i? 

B92 

893 time:ssoa3ce(2e2); 

ROY oprinteft(*eea->oTRIS JS THE TMI TIAL STATE GF THE NETWORK An"); 
B95 Oipagit t ( ~ BAXTER THE TEWING BODE FOR EXECUTIUN .weee NI")? 
B96 printf (" Ore cr FU UPA Seer oF Oe FRave PAUSES \n“) 7 
B97 OrinttE("e&exer")G 

898 1 = OF 

899 while((tininazaetchar()) $2 ‘A\n') { 

900 thuf fil = timina; 
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901 it+3 

902 } 

903 tout) = "No; 

904 

905 i = 03 

906 whileCtnuf {i} $= "NO°) { 

907 timing = teuf (i); 

908 i++; 

909 } 

910 1€(timingo!='OD* 58 timinat='i') ¢{ 

911 printf ("*krerdjincorrect version try aacain!")3 
9ie @aoto time; 

913 } 

914 return; 

915 >} 

916 

717 

918 iversi() { 

919 INt e@rxKrVr2e 

920 char check? 

921 

92e e=(bole->marker)? 

923 x=(bol-=>xcord)? 

9eu y=(tol->vycord)? 

925 z=(rol-e>namenter); 

926 if((check=names(ztl} )$='I' && (check=names(ztl} )£='O') { 
927 Seroca (0, e—-s.90¢511.2(y~5) 2° %a",e)3 

928 } 

929 else { 

9°30 if(checksnamas(z2t1}s='1I') orineglO,x«-ld.O,Sli.*(vt+e)-*X%d",e);3 
731 else printalU,xe14.0,S11L.-(y-9),"%0",e)3 
932 } 

933 return; 

934 } 

935 

936 

937 jiversel(colour) { 

938 IMt @rxervr2s 

939 char check; 

940 ; 

941 ez=(nol=>varker)? 

942 x>(bol->xcord); 

94% ve(nol-=>ycord)? 

9u4 Z=(bol=>nareotr): 

945 if((check=nasres(zt+lJ )ES'IT' XA (check=names(z+1) )$='O') { 
945 ocKxt2(xs,yrercolour)? 

9a7 } 

942 else { 

949 tvemoekerar--s (z7*!)te="!)l*) orint gts x=! 20 fod toe yt*2) "29" ,e)? 
950 else of7ines(Ver-1 bee SIi co (vr9) pK", e)3 
951 } 

95e return? 

9535 } 

954 

255 

956 ivers3(colour) { 

957 char kKkeeo,*kotr; 

958 INt araadrehroorecreccrcirlfired) ,pisksneStack,totalrxry; 
959 
900 total=0;3 
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961 NA=1;3 

962 x=(bol->xcorg); 

963 v=(vol->ycord); 

964 a=(bole->lenagth); 

965 b=(bol->nameptr); 

966 c=(bol->marker); 

967 totad=total tc; 

968 

969 Tt (C20) 

970 for(i=tOriscsir+t+) { 

971 kotr = &nanes(bta-e) 3 

972 keeo = *tkotr3 

973 clr(n}J =atroil(&keep)3 

974 ne+; 

975 } 

976 } 

977 

978 kote = &nares(btal; 

979 keep = *xotr; 

980 stack =atoi(&keen); 

981 

9B if(names(be(Cawl)J 2='O') |{ 

983 if(nanes(n+eCael)1=5'2') stack=stack+20; 
984 else stack = stack + 103 

985 } 

°86 

987 for(i=O0si<stackelei+tt+) | 

988 volte; 

989 aa=(Cool=>length); 

990 bo=(bol=>nameotr): 

991 ecc=(col->marker)3 

992 total=totalt+ce; 

993 ittce>0) { 

994 for (ksNsk<ecir k++) { 

995 kpter = &2nameslbotaare) ;: 
996 KeeD = *kpters 

997 clr (nltatoi(&keeo); 

998 Att; 

999 } 

1000 } 

1001 } . 

1002 Vftmames loti} !='I' && nanesibtl)] $='O') { 
1903 epckt3 

1004 Gevercortalr,cirillscirléelscir (Si ecir (4) -eleisls,ciritolr-cte (7), 
1005 colour): 

1090 } 

1007 else ({° 

1008 if(mameslotlIsz'l') nrintalO,x«-14.0,-S511."-Cyte),"4d"-total); 
1009 else orinral,x-I14.0,511.e(Cy79),"45",total )3 
1010 } 

1011 return; 

1012 } 

1013 

1014 

1015 prereai( flar) { 

LO01lo mt ouckwet (el ,countrfag-farirenortrnses 
Pony if(flaq!i=3) { 

1018 if(flag==1) f{ 

1019 fd = oven (fhuf, 0)? 

1020 Lintta<s0)) { 
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LO21 print f("“ttte>error occurred in orening fda file"); 
1022 } 

1023 fdtfouf=fd; 

1024 fe = ocoen (abuf, 0); 

1025 if (fq<=0) { 

1026 orintf("**tt->error occurred in orenina fq file"); 
1027 } 

1028 fdgouf=fg; 

1029 } 

1030 if((countsread (fdfnute bucket, 2))J!z2) |{ 

1031 orintf("txx->error occurred in fo bucket read"); 

1032 } 

1033 if((count=read (fdfoufs buffersC(ievents*2)))t=(ievents*e)) { 
1034 printf ("**2t-2>arror occurred in huffer read")? 

1rOS5 } 

1036 if((countsread (fdanufs, bucket, 2))I=2) { 

1037 orintt("*kr-rxerrar occurred in fa bucket read"); 

1038 } 

1039 if((count=reac (faonuf, enterl,2)) tse) |{ 

10490 orintf("**x*->error occurred in cntrl read")? 

1041 } 

1042 if(entrl (0) 220) { 

1043 space(2); 

1044 orintf("***x->the last network state nas been achieved"); 
1045 kthfrane=framestl? 

1046 soace(2); 

1047 } 

1048 else { 

1049 if(€Ccount=read (fdanuf, bucket, 2))$=e) |{ 

1050 orintf("**s->error occurred in bucket read"); 
1051 } 

1052 Nbetens = entel (9) «23 

10S 5 if((count=reaa (fdarufs, firingsnortrns)) $= nboeterns) { 
1054 orintft("**sk=>error occurred in firina read") 
LoS > } 

1056 } 

1057 } 

1054 else { 

1059 close(fdftbuf); 

1060 closal(fdabuf); 

1061 } 

1062 return? 

1063 } 

1064 

1065 

1966 niljite() { 

1067 iar inlesl, inta!lsjsnrleM™eMaxinctremaroutctr»n-outteS)- 
106% Outta lrornalotrin(2est ,aletoutl2eslsinxrinysqutx,outys 
1069 

1070 tapcount=0; 

Loge rorl(izlzi<senterl (Vl si*+) | 

107e hoe=sfiled; 

10735 for (jr0iisfirinalilelzj++) 4 

1074 coectt; 

1075 b 

1076 intble(racer>inten); 

1077 outtol=l(ha2->auttern) > 

1073 maxinetrziotol fintbl)? 

1079 for (kz0;k<naxinetrsktet+) { 

1080 intbl ++; 
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1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
Pics 


Inkevet ©) 
int 


Page 19 Fri Fed 8 07:09:34 5 1980 


inlk&])=iotol (intbl); 
} 
maxoutctr=r1otrtol louttbls; 
for()1=07;1<maxoutctr;1++) { 
curth)] ++; 
out [l)=ioth) louttol); 
} 
forlo=07o<maxinetrrot+) { 
Dlotinlo) =0; 
for (l=; 1<nbrolotzle+) { 
ifCinlo)szlinktbl(l} (0)) { 
Dlotinloj=l; 
l=nbrplot? 


} 


forlo=07;o<maxoutctrrot+) { 
olotout (po) =0;7 
tor(1l=0;)<ndrolotz1l¢++) { 
if(out (lo) ==linktbl (1) (0)) { 
Olotout lojJ Hl 
lea5ro lot, 


) 
} 
far(krtdse<naxinetrsrkeet) { 
for(g=07 9<m3axoutetrrat+) { 
ifC{olotin(k)==1 && plotout (q) ==1) 
for(r=VUs; n<norolotszmntte) { 
if€(linktol (m) (0) Stink] ) { 
Inx=linktol (mJ (1); 
iny=lin«xtbl] (mJ (2); 
m=norolot; 
} 
} 
for(n=O;n<norolotintt+) { 
if(linktb) (nl (0} ==out ([g) )f 
outx=linktol(n) (1); 
outv=linxtol (n) (2); 
ns=norolot? 
} 
} 
colar (ll); 
linesl(irx,s,inveoutc«routy): 
~leSt F291 Caocecount)}=i16«-s 
virstareltarcount) =iay? 
wourstoreltarcount) Fout x? 
yveurstrareltarccount)] soutve 
tar etount t+ 7 


{ 
TeINxrIinveoutxroutys 
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1141 

114e color(14); 

1143 forliszursi<tabcountrite) { 

1144 Inmx> xinstoreli)-, 

1145 iny= yinstoreli); 

1146 outx= xoutrstorelil? 

1147 outy= youtrtstorelil; 

1148 lineslCinxsinve,outx,outy)s 

1149 } 

1150 return? 

his) } 

Lise 

1153 

1154 staae() { 

Hiss 

1156 if (kthframe!$!=0 && kthframe<framestl) { 
1157 orereaal(e); 

1158 if(e&thfrane!t=zframestl) { 

1159 hilite()? 

1160 if(timinag=s'1l*) { 

1161 disola();3 

1162 peause(1); 

1163 } 

1164 } 

1165 } 

1166 returns 

io? ~~} 

1168 

1169 

1170 markina() { 

1171 f/x function disolavs successive iterations of the network */ 
lire int colourrdrawsirsMark seme xeye 

1173 

1174 bol = filel? 

1175 n = 23 

1176 

el 77 /« following loop orocesses ievent #8 data segments each pass */ 
1178 for(kthframe=0;kthframe<framesskthframer+) { 
1179 stage(); 

1180 if(kthframe>0) 

1181 reset(); 

1182 color(13); 

1183 cvrflawf): 

1184 Bram , Sot oy Ne po le see aie =e oy ) 7 
1185 n+t3 

118% } 

1187 rilam~ = etatergre; 

1145 dwar = (fe l=*olot)}; 

1189 Seite siar= 5; 

1190 color (ittreslor): 

P41 eeloswe=7; 

1192 Ctrovertilow=3 

1193 for (129; 1 < tieventss itt) f{ 
1194 if (<draw == 1) | 

1195 yetr = ie 

1196 Switch (vers) { 

1197 case 1: 

1198 versl()3 

1199 nreak?; 

1209 case 2: 
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1201 
1202 
1203 
1204 
L205 
1206 
1207 
1208 
1209 
lea. 0 
te) 
Lele 
1213 
1214 
en) 
1216 
hel 7 
1218 
rei 
1220 
1221 
Meee 
j2e3S 
12e4 
ree 
feeo 
lee! 
1228 
lee? 
1230 
1231 
He sie 
1233 
1234 
1235 
t2506 
hes 7 
#238 
f239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
hau 
e3! 
i252 
123 
1254 
25> 
beSh 
bea! 
L238 
leo? 
1260 


verse(colour); 
Creak?s 
case 3: 
vers3(colour); 
break; 
} 
} 
= vetr e+ > 
inca iltecolor!=5) color (5)? 
bol++; 
Graw = (nol => plot); 
} 
dfltcolor=14; 
ecolroetaftiteo!) or)? 
colour=13; 
OPimtat 0, 550.,480,,"1]13E FRAME = Zd",n)? 
if(rimirnass't') oause(e)} 
Inkrvt dd): 
bol = filel; 
} 
preread(3);3 
retutn?; 


) 


ovrflow() { 


int VexXeye 
+=0; 
while(overflowtb!) (11 (01) !=0) { 
x=Ooverflowrhbl (31 (0); 
yvzoverflowtbol (i) (1) 7 
+#(x>250) { 
Pockets) *1.,511).<(y+10)*1.,(x*540)*%1.,511.“-yel1.)? 
} 
else { 
Dlock((x=-SO0)*e1.,511 --CytlOdel io, (x35) 41.,511.-yr1.)3 
) 
overtlowtb!) {1} (0150; 
overflowth!] (1) (11 =03 
i++; 
} 
return: 
} 
versl() { 


INMt SyKveve zs 
Cnar check; 


esoufferlicter): 

xelhbolw~>ecor1)s 

y=(nole>oveord): 

Z=(nol->narentr); 

if((Ccheckwsnares(z+elL Visti! R&A Ceheck=narmes(z+l})$='O') |{ 
printa(0,«=3.U,511.“Cy-3),"%d",e); 

} 

else { 
if(check=names(z+l)S2'1I') printg(0,x-14.0,S11.“(y+2),"4%40",e); 


oy, 
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1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
iZie 
ive 1 5 
1274 
1275 
H276 
1277 
278 
279 
1280 
1281 
ese 
1265 
1284 
lees 
206 
hed? 
209 
e959 
1290 
lao! 
1292 
1293 
1294 
e975 
1296 
277 
P2795 
1299 
1300 
1301 
1302 
1305 
1304 
1305 
1306 
P3207 
1308 
1309 
1310 
1311 
Sle 
1313 
1314 
Pai 5 
1316 
oie? 
1318 
P19 
1320 


else printa(0,x-14.0,S11.-(y-9),"%d",e); 
} 
return; 


) 


verse(colour) { 
IAC Marky,xKe Yr Ze 
char checks 


x=(bol->xcord); 
yv=(5oel-*>ycord); - 
z=(obel=>nameptr); 
mark=buffterflictr)? 
if((check=names{zt+l))f='I' && (Ceheck=names(z+1)}))!='O') { 
pekte(xr,ye,mark,colour); 
} 
else { 
if((check=names {zt+t1] )=='1') orintgl(0,x-14.0,Sl1.-(Cyte) eo "Xd*,mark); 
else orintal(0,x-14.,0-S11.-lCy-9) pp "%d*,mark)3 
} 
retufne 


} 


vers3(colour) { 
Int arsaarDeNdO,narkesmarks,cirifired) ,jrksene stacks, totals xsyz 
Char keeo, *k ptr: 


total=0;3 
n=l; eee 
x=(opt->xcord); 
y=(bol->ycord): 
a=(ool=->lenath); 
b=(bpl=>nareptr): 
mark=bufferlictr): 
total=totalrmark; 
if (mark>0) { 
for(j=0;7; j<marks j++) { 
kotr = &nanes{btar2}; 
keeo = kkptr? 
clr {nl =atoi(&keep), 
nt++; 


} 


kotr = &nameslota)? 
keep = *kpopter, 
Stack=atoi(&keen); 


if(names{bt(a-l)1!='0') ¢{ 
if(nanes{lot(arl)J=z='1') stack=stackt+10; 
else { 
if(nameslot(arl)J=='2') stack=stack+20;7 
else stack = stack + 30; 


} 

} 

for(jeNsj<stackelsj+t) { 
bol+t¢+; 
ict r+? 
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1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1334 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
134A 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
136% 
1369 
1370 
1371 
ise 
1375 
1374 
1375 
1376 


aa=(bpol=->length); 
ho=(bol=->nameptr); 
markssoufferficetr); 
total=totaltmarks; 
if (marxKns>0) { 
for (x=Oek<marksiktt) 
kotr = &nmames (bbtaa-2); 
keep = kkpoter; 
cir (n) =atoi(&keep); 
Nn+t; 
} 
} 
} 
if(nameslotl) !='I" &$&8 namesflotl) !s'O') ¢{ 
pext 5 
(xsyetotalsclrllil,cir{2) -clri(3) ,clr{4) ,clr (5) ,elr (6) »clrt7), 
colour); 
} 
else { 
ealor(3); ; 
ieanmoamesiortl)=='1*) printg(0,*«-14.0,511.=(yt+2),"Z4d",total )? - 
else printal0,x«-14.0,Sl1l.-Cy-9) ,"Xd",total )3 
} 
return: 
} 
pexte(xaxiSryaxisSrDdoint,class) { 


Switcn(ooint) { 


case U3 

break? 

case 1: 
blocKk((xsxise3)*1.-S)l eC vaxist3) ele (xaxise3) *1.,511.-(yaxis-3)*1.)3 
breaks 

case 2: 
block((xaxis73)*1.-S1)l.oCvyaxist3) *liee(xaxist3) *1.,S511.-Cyaxis-3)*1.)7 
block(€(xaxise3)*1.,Sl1l.“Cvaxisel) alee (Cxaxist3) *1.,511.°-Cyaxism“l3)*1.)3 
break? 

case 3: . 

dDlock((xaxis 3) *1.,S11.-Cvaxist3) *1.,(xaxist3)*1.,511."lCyaxise3)*1.)7 
block((xaxisw7s)*1.-Sll.*Cyaxisr7)*1e,Cxaxist3}*1.,511.-Cyaxisol13)*1.)3 
Dloc«((raxis~3)*1.-S511l.-€Cvaxistl 3d} *1.-(xaxist3)*1.,S511."°-Cyaxist7)*1.)3 
break; 

case 4: 

nloe<((raxrises)e1.-Sllieel(vaxist+d *1lee(xaxist3)e1./,511.°( vaxis 73) *1.)2 
bloc«(fxaxises)e1.-511lem(vaxisel)eleoeg(xaxist3) ete -51ice(vyaxisel3)41.)3 
Dloc«((xacis~$)*1.-,511-e(vanistls)eleeCvaxisces)21.,511).-elyaxist/) *1.)3 
olack(fxaxiet7)*1.,51t.e(vaxist3d) elee(xaxistl 3) *#1.,S511."eCyaxisw3) 1.2); 
break? 

case 5; 

block ((xaxisos)41.-51 1. (yaxist3) elioeCxaxist3) *e1.,S511.°(yaxis735)*1.)3 
Dlock(lxaxis rs el ee Sllem(vaxism7 eles (Cxaxists) %le,511.e(vaxisw7l3)*1.); 
hlocw((xarismo) et) .,d11leo(varistl 3S) ele (xaxist3)e1.-S11.°-Cyaxist7)*1.)7 
nlock((xaxist/)*1.,-S51-elyaxnist3) eles (Cxaxistl] 3) *1.,-,511l.-Cyaxis73)}e1.)5 
Dlock((xvaxisml3)*1.--S5)1.etlvyaxistsdailerg(xaxisel7)*e1.,511.elvaxisw3)*1.); 
break, 

¢case os 

picew((xaxise3)41.-51)-eCyaxist3} *1lee(xaxist3a)e1.,S511i.7lCyaxis-3)*1.)3 
block ((xaxisw3)*1.-5)1.eCyaxism7)tleg(xaxist3)*e1.,511.e-(yaxisn13)*1.)3 


fog 
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1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
Peo } 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
i41e 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1430 
1as7 
1438 
1439 
1440 


MilOchtGuas 15 = 5) toy Sl loom (youystl5)*1.,(xaxist+5)*1.,511.7lyvaxist]) #1.) 
DlcemuGwextst+/)*1le, ot 1 om (vVoxist3)*l.,Cxaxisti3)*1.,511.°(€vaxig=3) 41.) 
Sider tt(xaxyo=-15)41.-511.-(vaxrisct5)*1.,(xaxiseo/7)*1.5511.-Cyaxis9-3) *«1.) 
Olock((xaxisw13) ei .,Sil.e(yaxistl3)elepCxaxisr7) *1.,511.7*(yaxist/)*1. 
break; 
Case 77: 
Block((xaxis-3)41.,Slil.-Cyaxist3) *1.,(xaxis+3)*1.,-511.-(yaxis-3) *1.);3 
Dlock(Cxaxise3)«1.-,S5ll.-Cyaxis~7) «lio, (xaxise3)*1.,-,511 -e-Cyaxis713)*1.)3 
block ((xaxis 735) *1.,-,511.-Cyaxistl3)e«1le-Cxaxist3)ex1.-S511le-Cyaxist/)*1.)3 
block((xaxist#/7)*1.,-S1l1l.-Cyaxist+3) «le, Cxaxistl13)*1.,511.-Cyaxis~3)a1.)7 
btock(Cxaxiswis)* i. -Sli.ww(vaxist3) alee (xaxiso/)x1.,-511.--fyaxis-3)*1.);3 
Hlock((xaxisw1S)*1.,511l.-Cyaxistl3) «lee (xaxiso7)*«1.,511.-(Cyaxist7)*1.)3 
Dliock((xaxist/7)*1.-511.-(vaxist13) 41.-(xaxistl13) *1.,S511.-(yaxist7)*1.)3 
break; 
cefault: - 
overflowtr! (ctroverflow) [(O] =xaxis; 
overflowtol(ctroverflow) (ll =yaxis; 
ctroverflowtt, 
block((xaxis-3)*1.,51li.-Cyaxist3) «lip Cxaxiste3) *1.-531.7°€Cyaxis-3) *1.)3 
block ((xaxise3) ele gSllemCyaxiso7) «lee (xaxist3) *1.,S511.-Cyaxiso13)*1.)3 
biock((xax7s~3)41.-511.-Cyaxisti5)*1.,€xaxist3) 21.2511 .7Cyaxist7) *1.);3 
block ((xaxist/7)*«1.,511 --(vaxists) *legl(xaxistl13)*1.,511 -(Cyaxis73)*1.)% 
block ((Cxaxiswl3) e1.-Sll.e(Cyaxist3) ele, Cxcaxisr7)*1.-511.2°Cyaxis 73) *1.)3 
block ((xaxise13)*1.,511.-(yaxisti3d) «lee (xaxiso7)*1.¢,511.-7(vyaxist/)*1.)3% 
Dlock((xaxist7) *1.¢,511leeCyaxis*tl 3) leg (Cxaxistl a) ei .,511.7Cyaxist/7) *1.)3 
€alorleclass); 
aratcolor=class; 
if(xaxis>250) { 
printgl(O-xaxist38.0-Sil.ryaxisr, "40d" ,point=/7)3 


e 
c 


} 
else { 
printglO0,xaxis-S0.0-Sllewyaxiss,"td",pointe7)3 
} 
break; 
} 
return, 


} 


ockt3(xaxiSryaxisrstotalrclrecerscdrchs-cSecOrsc7recliass) f{ 


Switch (total) { 

case 0: 
break; 

case 1: 
color(cl); 
Dlock((xaxis-3)*1.,Sll.*(yaxist3)*le-(xaxist3)*1.,S511.7(yaxis-3)*1.)> 
break; 

case e: 
color(cl); 
block ((xaxis~3s) *le-Slleml(yaxist3deler (xaxist3) *1.-S11.7lyaxisa3)*1.)2 
colortce). 
Dlock((xaxis rs) ele Sllemlyaxises) eller (xaxist3) *#1.,511.-Cyaxis713)*1.)7 
break; 

case 3: 
color(c!)? 
block((xaxis t3) *1le-Sllewlyaxist3d) eles (xaxist3)*1.-511.-Cyaxis~3)*1.); 
color(ce); . 
block ((xaxis73) *lepSllemlyaxise7)*lee(xaxist3) *1.,S511.7(vaxiswl3)*1.)3 


170 
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144] color(c3): 

1442 Diloerecwaxis-—5)%).,511.=<Cyaxisti15)*1., (xaxist5) *1./SP1.-(yaxvst7) #15); 
1443 break; 

1444 case 4; 

14465 Color lel); 

1446 blocx«((xaxise3)*1.,S5ll.“Cyaxist3) elope (xaxist3) *1.,511l1.-(yaxis=3) *1.)3 
1447 color(c2); 

1448 block ((xaxise3)*1.-SlleelCyaxise7) «leg (xaxist3) «1.,S11.“-Cyaxisel3)*«1.)3 
1449 color(e¢e3); 

1450 block((Cxaxis 3) *1.,51l.-2Cyaxistl 3) *1e,Cxaxist3) *1.,5lle“-lCyaxist+7)*1.)3 
Pas] color(c4); 

1452 block ((Cxaxist7)*«1.,Slle-Cyaxist3) ele (xaxist]3)*1.,-,511.-fyaxis-3)*1.)3 
1453 break; 

1454 case 53 

1455 color(el); 

1456 blocx((xaxise3) *1.,511“-Cyaxist+3) lee (Cxaxistd) e1.,511.-Cyaxise3)*1.)3 
1457 coltor(ce); 

1458 blocwe((xaxised)*1.,511.“Cvyaxise7)*leg(xaxist3) *1.,511.°Cyaxiso-13)*1.); 
1459 color(e3); 

1460 block((xaxise3) *1.,511.“<Cyaxise#l 5) *1.-,Cxaxist3)*x1.-Sll.el(yaxist+7)*1.);3 
1461 color(c4); 

1462 DlocKk((xaxist7) x1.,511leelyaxis+3s) *e1lee-(xaxis*+el3)*«1.,-,511 --(Cyaxise3) «1.5% 
1463 color(cS); 

1464 block((xaxisel3)*1.,SlleeCyaxist3) «1leo,Cxaxise7)*1.,511.-Cyaxise3)*1.)7 
1465 break; 

1466 case 6:3 

1467 color(cl); 

1468 block ((xaxise3)*1.-S511l.-Cyaxist3) *lee(xaxista) ele s-Sllie-lyaxise3)*1.)3 
1469 Coton cee). 

1470 block((xaxis73)*1.,Sll.9Cyaxiso7) *leg(xaxists)*1.,S11.eCyaxisel3)*1.)3 
1471 color(c3): 

1472 block ((xaxise3)*#1.-Slle-“Cyaxistl3)*lepCxaxist3) *1./,511-e-(vaxist7)*1.)3% 
1473 cotor(c4)-; 

1474 block((xaxist7)*1.,S51ll.9eCyaxist3) «ioe (Cxaxistl 3) *1.,S511-e(yaxis-3)*1.)3 
Pas ecolor(leS); 

1476 Dlock((xaxiseli)e1l-Stleo(yaxista)eleog(xaxise7)*1.-511 elyaxise3)*1.)2 
1477 color(c6);3 

1478 block ((xaxisel3)*1.-S1l.eCyaxistl3)*lee-(xaxise7) *1.-511.°-(Cyaxist/)*1.); 
1479 break? 

1480 case 7: 

1481 eoclortcl). 

1482 block ((xaxise3) «1.,Slle“Cyaxist3) «lee (Cxaxist3) *«1.,Slil.-(yaxise3)41.)7 
1483 color(ce); 

14884 block((xaxises)*«1.e-Sli.“Cyaxis-7)*leoe(xaxist3) *e1.,-,SlleelCyaxis-13)*1.); 
1485 color(c3)3 

1486 block((xaxis“3)*«1le,5lle“(vaxistl3)*elepg(xaxist3d) #1.,-S11--Cyaxist7)*1.)3 
1487 color(c4);3 

1488 block ((xaxist7) *1le-S5lleelyaxist3) tlee(xaxistl3)*1.,S11e“lCyaxise3)*#1.)3 
1489 ecolor(es): 

1490 block ((xaxisele)ele,SlleoCyaxist3) elep(xaxise7)*t1.,511.-Cyaxis~3)*1.)3 
1491 color(cé);3 

1492 block((xaxisel3)*1.,SlleelCyaxisti3d) *lee(xaxiso-7)*1.,Slleo(yaxist/) *1.)3 
1493 color(c7);3 

1494 block (Cxaxist7) *lep-SlliewCyaxistl 3) eee CxaxistlS)*1.,S1le“Cyaxist/)*1.)3 
1495 break; 

1496 default: 

1497 overflowtb!] fctroverftlow] (0) =xaxis; 

1498 overflowtbl I[ctroverflow] (1) =yaxis; 

1499 ctroverflowtt; 

1500 color(el)? 


es 
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10) 
1502 
13.05 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
519 
1520 
1521 
15ee 
1523 
1524 
LSie5 
1526 
1527 
1528 
1529 
153¢ 
1531 
1532 
1533 
1534 
iS) 
1536 
1557 
1538 
1539 
1540 
154] 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
S57) 
1552 
55:5 
1554 
1555 
1556 
1557 
1558 
1559 
1560 


Blige @lxs xt 5-5) * 1.751 lw@=Cyax1s+5)*1.s(xaxist5)#1.-511.-Cyaxis=3)*1.)3 
color(ce); 
block((xaxise3)*1.,511.2Cyaxise/)*leg(xaxist3)*1.,511.°l(yaxisel3)*1.); 
color(c3); 

eee uate me eel eX xaxistS) els, ol bec Cyaxtst isl )% 
color(c4),; 

aa reas eae a sdiee 3) #1. ¢(Cxaxie+13)*l.+S11.eCyaxis- 3)*«1.)3 
colores): 

clock((Cxaxisol3)*«1.,51lleelCyaxist3) e1ee-(xaxiso7)*#1.,511.elyaxise3)*1.)% 
color(cé); 

block(€€xaxis-13)*1.,51l.elyaxisti3) *lep(xaxise7)*e1e,511  ~-Cyaxist/) *1.);3 
color(c7); 

eae else) Nag yax 1 St) 2) Fle Craxratls)sber sll. “(yaxist/)*1.)3 
color(class); 

aofltcolor=classs 

if(xexis>250) { 

orintal(0,xaxist38.0,S511leeyaxise,"K%d",totale/)3 
) 
else { 
orintg(0,xax1is-50.0,S5lli.-vaxis,"““Za"-,total-7); 

} 

break; 

} 

returns 
} 


reset() { . 
/e reset function for successive network iterations */ 
int temMarksxeoyrZs 


if(vers==1 (i vers=se) { 

for (i=z9;i<nherplotzritt+) f{ 

color (14); 

x=tinktb)l Ci) (1) 2 

y=limecbt Liste) 7 

z=linktb) (1) (3); 

if(ze=0) { 
Sei a oe Stile oye )1 op beet) 01511 --Cy=13) 160% 
block ((Cxel a) e1Lee-Slleml(yt Lavelor (xt aye. -Stlemlye3)*e1.)7 


} 
else { 
block ( (x16) aleeSllemlyec)eler xt - Slim lCys1O)e1.)% 
block (( x16) *1e-S]lleml(yt1O)elLerx*leeSlliemCytedxi.ds 
} 
} 
} 
else { 


forl(iztuszi<tolcetroelritt?) |{ 

color(t4); 

xzuniquetbdb) (i) (137 

y=uniauetnl (iJ {2)7 

Z=uniqueto!) (ij) (3)3 

if(z==0) ¢ 
block (Cxe3)} #leeSllem(vo7)elerp(Cxt3)e1e-Sliwelyrl3)e1lede 
block ( (x13 ele rSllemlyt layeter(xtlade1 Sli owlym3)*1.2.)32 

} 

else { 
block ((x-16)*1e,511.-Cyo2valee xt -SILeCyml0)*1.)>% 
block ((x-1l6) *1.,S11.-CytlO)tlesxtlesSllemlyte) el.) 


tee 
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} 
} 
} 
rFeturn: 
} 
coltab() { 
Int v2? 
1=11%16; - 
Vedeo) (it++s.15-)5Sr15)7 4x color 0 x/ 
leodcol(i++,0,10,0); fe IColor 1 )*7 
loccol (it+,15-0,0); fz color 2 xk/ 2 
Vodeo() ++7139,15-0)3 7* = color 5 */ 
lieseoW(s #4712,0,12); 7e_tcolor 4 «7s 
lodcollitt+.»525-12)3 7s “eqlor 5S #7. 
lodacollit+.,676.45)3 7A CONOr wou <7 
lodcollit+,5,3,3);3 7* color 1 */ 
lodco! (i+te10,6,10)3 J color 8 x/ 
logeol(14+4+712,5,5); 4x color 9 «/ 
lodcol(it+.5,5,3);3 J* ¢eolor 10 */ 
odes: Crit+p,levlies,0): /® EOlor 11 «7 
Wogeol(it+,0,1775); /* color 12 */ 
lotcol (i+t+.5,4,2)3 7%  Golor 15° *7 
lodcol(i++,0,0,6)3 /* color 14 x*/ 
Vodeol(1++,6,0,0)7 4x color 15 */ 
returns: 
} 
SERRA AKER ARKRARRARERARERKAKKKAEAA RK RaKARAKA RAK aK KR S 
Leake eek kaethreerkeae/ 
[tet kane END OF PROGRAM LINKGRAPH.C 1 xaxxakane/ 
JRRKKARKE thee aekaeane/ 
LARRRERRKKEPAKRAHRAKRAEAARAKRARKRKAKAEKRRKKERKR RK RK KKRK KKK KAR S 
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